
mm 



NR 3 - 1984 
PROGRAM SPECIAL 



Programmer til Commodore 64 

Staveprogram 

En spsendende program med flot graffk 
Symbol code 

Et program af Master mind-typen 
Dataindlaesning 

Numerisk tastatur til din computer 

Dobbelt index 
Preprogram tfl din diskette 

Privatregnskab 

Opsummerisk- og phntroutine Wbudgettet 
Sljernekrig 

Et spsendende actionspll 
Kontrolsum 

Letter indtastning af programmer 
Bomber 

Jryk bogstavtasten tsrbomben f aider 
HusKarj 

1 Beregner skattefordeien 
Database 

Med lOOsrdera 10 tinier 

; Keykort 

winter et keykort pa din plotter 1520 

Programmer til VfC-20 

[Dataindleesning 

wumerisk tasta tur pi din computer 

[Database 

p databaseprogram medmindst 3K udvidelse 
Baja 1000 

■ spasndende spil til en uudvidet VIC 
Caves 

iSlip hetskindet ud Ira de underiordiske huler 
Keykort 

winter et keykort pa* din plotter 1520 

Programmer til C16 

BD plotning 

vdnytter computerens graflske muligheder 
URC16 

tn kort routine til computeren 

eykon 

rinter et keykort pa din plotter 1520 



ovrtgt 

jiedmng i aandrmg af tegnsaet 
rogramanmeldelser . . . 
sse i Forum 
lekonkurrence 



11 
14 
16 
18 
20 
28 
29 
30 
32 
33 
42 

16 
36 
37 
40 
42 

17 
24 
42 



26 
27 



Udgiver: Compulerworld Denmark 
A/5. Ansvarshavende redaklor: Jor- 
gen Jorgertson. Fagredafctlon: Ro- 
bert Ch. Noya, Flemmlng Lerbask. 
Robin Sagar. Axel Bang. Steen 
Schmeltzer. Dlrektlon: Preben En- 
gell (adm. direktor). Annoncechelr 
Leil Rasmussen. Marketing: Rene- 
Koefod. Btadsekretaar: Grith Axel. 
Abonnement: Oorthe Christensen. 
Tolefon: (01 ) 12 34 1 1 . Telex: 37 566 
CWDAN. Distribution: Dansk Cert- 
tralagenlur. Sats/tryfc; J. H. Schultz 
A/S, Kebenhavn. Oplag: 22.000. 
RUN udkommer 2 gange i 19B4 og 6 
gftnge i 1985. 

RUN er el medlem under CW-Communl 
cations Inc., verd&ns storste udglvei at 
daiaorienterel intormation. Gruppen ud 
giver 52 compuler-publlfcalioner I 21 In 
dustrllande. 9 millioner laser en eller 
lle*e at gruppens publikalioner hver ma- 
ned. Medlemmerne al gruppen en 
Argentina: Computerworld'Argentina. 
Australian: Compulerworld, Australian 
Micro Computer Magazine, Australian 
PC World and Directories. Brasillen: 
OalaNews, Micro Mundo. Canada: Com- 
pulerworld Canada, PC World Canada. 
Denmark: Compulerworld Danmark, Mi- 
cro Verden. Buyer's Guide, RUN. Eng- 
land: Computer News, Computer Mana- 
gement, Computer Business Europe. 
Finland: Mikro Frankrlg: Le Monde In- 
lonmatioue. Golden (Apple), OPC (IBM. 
Holland: Compulerworld Benelux. Ml- 
era/info. Indlen: Oalaquest. (fallen: Com- 
pulerworld llalia. Japan; Compulerworld 
Japan, PersoCom World. Klna: China 
Compulerworld. Mexico: Computer- 
world/Mexico Covnpu/Mundo. Norge: 
Compulerworld Norge, Mikrodaia/PC. 
MlkroData. Saudi Arabien: Saudi Com 
puterworld. Singapore: The Asian Com- 
puterworld. Spanien: Compulerworld 
Espana, MicroSlslemas. Commodore 
World. Sverlge: CompulerSweden. Mi 
kroDatorn. Person Datorn, PC World 
Tyskland: ComputerWoche. Microcom- 
puter WHt. PC Well, Software Markl, CW 
Edition/Seminar, Computer Business. 
RUN. USA: Compulerworld Computer- 
world on Communications. Mot CoCo. 
In-Clder. InfoWorld. jr.. MacWorld. MI- 
CRO MARKETWORLD, Microcomput- 
ing. PC World. PC Jr World. RUN. 73 Ma- 
gazine, BO-Micro. 



R 


U N 







Commodore - magasin 

Gammel Strand 50 - 1202 Kebenhavn K 
Til. 01 - 12 34 11 



II de Desion JoM Bu' 'J;e Pofo Knud Jacocaen 



3 



Laaserservice 




lndtastningsvejledning 



Har du ikke tid eller lysl lil seiv at md- 
tasle programmerne I bladel, kan du 
bestille dern pa kassetteband eller 
diskette. 

Prisen er kr. 98,00 for en kassette 
og kr 1 18,00 tor en diskette - begge 
priser incl. moms, porto og ekspedi- 
iion Af praktlske arsager bedes du 
vemllgsi sende pengene samtldig 
med bestlllingen - enten pr check et- 
ler pS postgiro 1 48 31 6V 

Husk ved bestilling a1 anfere, hvil- 
ket nummer at RUN, du bestiller 
programmer Ira. 




Programlistningen 
i RUN 

Der er ved tlstningen al programme* I 
RUN arwendl et sasrligt printprogram , 
der skulle gare indtastningen at pro- 
grammer vaesentltg lettere end ved en 
almindelig listning, hvor de graliske 
tegn ikke er til al la?se. I mange tllteelde 
ska I du irykke pa to taster tor at mdta- 
ste et legn I programmet er de to ta- 
ster anf art mellem to kan tede parante- 
ser og de!t med en skrastreg l.eks. 

(SHIR/A) eller (LOGO/A) 
hvor du ska! anvende SHlFT-tasten 
eller LOGO-tasten sammen med A. 

Du vil ogsa komme ud tor 

(BLK) eller (RVS/ON) 
i de liifaelde skat du btuge CTRL-tasten 
sammen med henholdsvis 1 og 9- 
tasten 

Star der indenlor de kantede parante- 

ser I.ekS- 

(SHIFT/A" 8) 
skal du taste det pagaaldende tegn 6 
gange. 

Lige en ling, du til slut skal vasre op- 
maerksom pa. Kontrolsummen kom- 
mer ikke til at passe, hvis du stetter 
eller mdsastter et meilemrum. 
God fornejelse. 



Alle programmer, der bringes i RUN 
er forsynet med en sakaldl kontrol- 
sum. sa du bagefter kan kontrollere, 
om du har tastet ngtigt ind og evt . hur- 
tigt finde indtastningsfejl. 

Du starter med at mdtaste pro- 
grammet pa foregaende side og gem- 
mer det 1il fremtidig brug. 

Ved indtastning af de ovrlge pro- 
grammer er fremgangsmade felgen- 
de; 



1. Fsrst mdlseser du programmet 
»Kontra!surn« 

2. Saindtasterdudit program. 

3. Tag altld en kopi at dit program 
indendu tester det 

4. Skriv GOTO 62000 og besvar de 
spargsmal som programmet stil- 
ler. 

5 Sammenllgn de kontrolsumme 
med det, der ertrykt ibladetog find 
de I inier, hvor du evt . har tastet feji 




Indsendelse af materiale til RUN 



RUN vil som tidligere nsevnt gerne 
have en bred leeserkontakt. Har du 
dertor el program, som du mener har 
interesse tor andre. er du meget vel- 
kommen til at sende det pa band eller 
diskette til RUN, sammen med nogle 
bemsGrtcninger om programmet. 0n- 
sker du del returneret, bedes du ven- 
Hgst vediaagge svarkuvert. 

Vi glseder ostil at 



Har du programmeringstips ellei 
ideer til emner, du ensker belyst. 
modtager vi ogsa gerne din henven< 
delse. Vi vil ligeledes gerne stotte nu« 
vserende og fremtidige brugerklubber 
ved at trykke adresserne her I blade! 
Har du spergsmal eller har du noget ai 
seelge? Som pnvatperson er del grattj 
at brugeRUN. 
horetra d*g. 
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Lceserne er utilfredse med RUN! Vi fdr den ene klage efter den 
anden. der g£r p£, at vi ikke kommer lit nok! Det er for leenge at 
skulle vente to maneder pd det neeste RUN. 

Som et plaster pa sSret har vi derfor besluttet at komme med et 
nummer 3 - program special. 

Uden programmer har du ingen gleede af din computer. Det er 
derfor naturligt for et btad som RUN, at lave et specielt program- 
nummer ind imellem. 

Programmer kan du skaffe dig pa flere mSder . Du kan k0be dem 
fserdige og du vil da - som regel - fS programmer af en teknisk 
meget hsj kvalitet, der ligger vassentligt over, hvad de fleste kan 
lave selv, Til gengseld er de programmer, du selv laver, tilpasset 
dine specielle ensker og har derfor ofte en storre vserdi for dig. Den 
sidste type programmer kan du frit udveksle med dine venner og 
dermed opbygge grunden tif en programsamling. 

Derudover kan du indtaste programmer fra f.eks. RUN, Vi 
praver at finde varierede programmer af en meget haj kvalitet. Da 
programmerne som hovedregel skal sknves helt eller delvis i 
BASIC og ikke vasre laengere end Iseserne med rimelighed skai 
kunne taste dem ind, er det klart, at de programmer vi bringer ikke 
kan hamle op med de virkellg professionelle programmer, der er 
skrevet i maskinkode. 

Endelig kan du selvfolgelig skaffe dig »piratkopier< f af program- 
mer. Men her kan vi ikke advare kraftigt nok. Det er en klar over- 
traadelse af loven om ophavsrettigheder, og du risikerer derfor en 
ikke ubetydelig straf. De ferste sager af den art karer allerede og 
flere vil felge, da softwarebranchen er ved at finde sammen i en 
faelles front mod disse pirater. Nu er du advaret! ! ! 

Jeg vil slutte med at enske RUN's l32sere en rigtlg god jul og et 
godl nyter i selskab med familien, RUN og din Commodore. 

Jvrgen Jsrgensen 
Redaktar 
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Vaerktoj for tegnsaBt-designere 



Af Axel Bang 



Commodore 64 er enesiaende pa 
mange omrader. Blandt andet er den 
udstyret med 6510-mikroprocesso- 
ren. som adskiller sig fra den kendte 
6502-processor derved. at de to lave- 
ste adresser 0000 og 0001 anvendes 
tit bl.a. at slyre lager-»niveau« sa, man 
har kunnet Isegge Read-Only-lagre 
'ovenpa' Random Acces lagre. Detbe- 
tyder, at nogle reelt ganske lorskellige 
dele af computeren faktisk ligger pa 
samme adresser. 

Man kan satedes flylte compute- 
rens ROM-base rede tegnssei ud I den 
(nassten) direkte underliggende RAM. 
og her kan man manipulere direkte 
med alle tegnene, ganske som det 0n- 
skes. Jeg har selv et program, som 
isegger russisk tegnsaat i computeren 
- uden at det koster en eneste lager- 
plads! 

Det lerste at de fern smaprogram- 
mer (listning 1) er en ganske ordinaar 
kiump Basic. Den tegner en firkantet 
rude pa skasrmen. og ved hjaalp af en 
lille maskinsprogsrutine. som POKE'S 
ned i tapebufferen, kan du herefter flyt- 
te rundl med cursoren som det passer 
dig. Indenfor ruden kan du ssette "*" 
eller X-er etler hvad du nu ensker at 
bruge, pa de pladser indenfor ruden, 
hvor du ensker at markere en »prik« - 
meningen er nemlig, at du her kan teg- 
ne dine egne karakterer prik for prik. 
Nar du har deslgnet et tegn. skal du 
afslutte med al trykke pa RETURN- 
tasten. 

Den lille maskinsprogsrutine tilla- 
der dig at bruge cursoren som om du 
tastede las t "Direct Mode«, men com- 
puteren vil ikke forsoge at fortolke dine 
indtastninger. I stedet beregner den 
DATA for det tegn, du har skabt inden- 
for ruden. Derved slipper du lor el tids- 
rovende regnearbejde. 

Det nseste program virker »den an- 
den vej«. Nar du har 8 dataseet. som 
skal til at danne det enkelte tegn, kan 
du anvende dette program til at sikre, 
om dit tegn biiver som du ansker det 
(listning 2). 

Det tredje program flytter Commo- 



dore 64's originals tegnsset ned i RAM 
(listning 3). Adresse 56576 definerer 
den 16 K blok. vi har anbragt tegnsaat- 
tet i. 53272 definerer skasrm og tegn- 
generator, set med videochip'ens 
sjne. og adresse 648 meddeler Basic- 
fortolkeren, hvor skasrm-RAM herefter 
findes. Den nydefinerede skaarm er 
placeret i 200*256 = 51 200- husk det 
ved eventuelle POKE'S til den nye 
skaarm! Skaarm-larve-RAM kan ikke 
flyttes; den ligger altid pa 55296. Ved 
at manipulere med adresse 56334 kan 
|eg kvasle udefrakommende interrupts 
(som ville veere ulyksaglige). mens 
tegnkodeme flyttes fra ROM til RAM, 



og for at bestemme, hvilket »lag« 
ROM/RAM microprocessoren skal ar- 
bejde med, AND'er )eg indholdet i 
adresse 0001 med 251. Herefter flyt- 
ter jeg indholdet i adresse 0001 med 
251 . Herefter flytter jeg en ottendedei 
afettegn( = 1 byte). Derpadresserer 
jeg adresse 0001 ti Ibage lil normal ved 
at OR'e med 4. og jeg genopliver In- 
terrupten med 56334 OR 1. Herefter 
kan jeg POKE den hentede byte pa 
pfadsldetomrade.hvorkaraktergene- 
ratoren fremover skal ligge. 

Takket vasre FOR/NEXT-lokken fra 
Imie 2O0fl hopper programme! tilbage 
og henter nseste byte - 1 alt 2046, sva- 



FUTURE 



LINE 




PltESENTERER! 

TREBES TIL CBM64 

100% dansk tekstbehandlingsprogram i ren M/C 
med folgende funktioner: 

- Dansk Karaktersa?t (VEOAteea) pa printer og skaerm 

- Fuldautomatisk scroll i alle retninger op til 
80 tegn pr, linie. 

- Blok opdelt, (flyt, fiern & det blok). 

- Kan bruges med CBM printere og tekstbehandlings- 
printere, som JUKI 6100 & Brother HR15. 

- Centrering, Hejre justificering & Deimerbar TAB 
(optil 14 aikX 

- Formaterer mens man skriver. 

- Funktionsforklaring af alle kommandoer, i 
vinduer pa skaermen. 

• 20K tekst. 

- Directory af diskindhold. 

- Udferlig brugermanuai. 



DISK KR. 498,-. 
TAPE KR. 448,-. 



Vejl. 

udsalgspriser! 



Ultimo dec. kornraer 100% M/C Arcad-espil til CBM64. 
FUTUREIine, Tjaerebyvej 9, 3400 Hi Herod 
Tlf. 02-1104 28 
DANMARKS SOFTWAREHOUSE 
HENVJSNING TIL NjERMESTE FORHANDIJCR 



rendetil ENTEN Upper-case + grafik 
ELLER Lower-case/Upper -case - alt 
efter om jeg VEeiger 53248 eller 
53248 + 2048 j linte 230. 

Nar jeg har hentet hele detle tegn- 
sast, jeg ansker al bruge. ned i RAM 
kan jeg overlade de! ti! PRINTOUT- 
programmet at udskrive prikkoderne 
lor hvert enkelt tegn. 8 bytes pr. linie 
som de nu rwer sammen til. 

Nar du har legel med programlist- 
ning 3 og listning 4. kan du lage Char- 
dataprogrammet Irem Igen ogchecke 
de data, du har f£et ud pa tryk. 

PRGGRflML ISTN1HG I 



Det sidste program er opbyggel 
nassten ligesom program 3 - med den 
aandring at jeg larger skaerm-RAM i 
50176, tegnsaattet (Lower/Upper- 
case) tra adresse 51200. Dette pro- 
gram POKE'r desuden de 48 nodven- 
dige data pa plads, som danner se/>E, 
0/0 og a/A. Men da skasrm-RAM nu lig- 
ger sa h0jt. kan du snyde cornputeren 
og lege med f.eks., at POKE 43,1: 
POKE 1024.0:CLR hvorefter du far 
1024 ekstra bytes 111 din RAM. Men 
samtidig far du den forde), at du heref- 
ter har samme START OF BASIC som 



t.eks. PET. og du kan LOAO'e og SAVE 
dine programmer, s&de herefter kan 
kare mere eller mindre direkte pa PET- 
computere, i hvert fald hvad angar 
START OF BASIC-problemet. 

Det danske tegnsaet Jigger i 0vrigt 
ganske som da de farste tegnscet- 
ROM'er kom til VIC: Lille as ligger pa 
SHIFT + 'kantet parantes/venslre', a 
pa SHIFT Vkantetp./hBire' og 0 pa 
pundtegnet. SE ligger pa SHIFT/ +■ , A 
pa SH I FT/- og 0 pa Commodore-logo/-. 



10 POKE53280.0:POtCE53281 .0: (JLR: POKE646 . 1 
20 PR I NT "t CLR^HOtlE 3 L CRSR^-R I GKfx6 3 B I TREO I 

GER L NEC CR5R /DOWN V? i SK* HJ24 : Sfl=J,K*34 
30 P0KE5K-.16.] I2:POKESK>S5,110:PaKESK-r46 

«36B.l03:paKESK*-S5T36B,l25 
18 F0RN=fl r02a8Sr£r»4B; P0KESK»86tN .93: POKE 

SK*95'N,33:NEXT 
S0 F0R^^ro.':POKer.K-r17rN,6<l:POKESK^WM 

60 P0XE93R.?2:pnKG83l .207:POKE832 ,255:P0 
KE833 ,133: POKE831 . 0 : PQKE835 , 99: P0KE64 
6,7 

70 SYSS3H: iFPEEKlfl Jt13THEN80 
80 CN*="CCRSP/D0WN*7J" 
38 FORN=8TO7:GnSUB170 

t*8 so--Sfl.ia: cm »cttt+ "t crsf/uounj " 

118 NEXTN: PRINT '! HOHE J"TH«:GOTO130 
120 P-e:FORfl=8T07 

HP iFPEEKtSft-fl J<>37THENP=Pt?-ffi;PRiNT"tH 

nriE J"CNi: iobc 16 l:P 
110 MEXTsRETURM 

1S8 forn=0i 02500: ejjo 

EilO? iRFfl PtlNl.lST 

prugriwi tSTKiNS 7 n 
IB FOKi^-atrv 

20 rRINTNMiMMPUTPCNl 
38 NEXT 

40 TRINI let R^VririE]"tFORN=0TO7 

58 IFP!N)Ol?8THENXt-Xl» J ! SHIFTS ] ": PCN ) 

=PIN MZflrGOin^B 
80 X*=X*t ' " 

70 IFPLNJ^ailHF.NXt^t.' "ISHIf T/IJV :pchj^ 

P!H3-R1:GOT03R 
80 Xl=Xif - 

30 JfPtNJ=>3?THLMXi=X*t"LSHIFT/Q]":ptNJ= 

PCN J -37: GOTOI 10 
100 Xt=Xi." " 

118 IFP(N)=>lBTMENXt = >Ct'' ! SHIFT/Q J" : PCN ) 
128 Xi=Xir " - 

130 ]FP!NJ=>97HENXt-Xi+ t SHIFT .'Q)":p!N)r 

PCH }-B:GOTni50 
110 Xt=Xit" ' 

150 lFPCNJ-> )THENX»=Xi» "[SHIF1/QJ":PCN J= 
PCN 3-4: GOTOI70 

160 xi-xi- ' 

170 IFPtH307!HENX4=X* SHIFT ✓QnPCNJ* 

r£NV?:G0lai38 
180 *!=>.*- 

193 IFPC*D^>llMENX4=Xt + , tSHlFT/a]-'!PCN) = 

PCNJ-1:0OTO21B 
200 X*=Mt ' - 
2ia rPlHTXi:Xi="":NEXT 

PRO GRM1L I STN I NQ 3 

100 POKE50576.4 
118 POKE33Z77,37 
120 POKE919.20C 
130 PR I H tCHRt C M7J 

118 PRINri SHIFT 11 SHIP VSHSHIFT/CJ1SM 
IFT^DJL SHIFTS)! SHIFT ^FK SHIF IxGJtSH 
IF TxilK SHIFTW 3CSHIFTVJ 11 SHIFTS J! SH 
lfT/tJL SHIFTED 1C SMiFT*-NH SHIFT./0] [ SHIF Tx 
PJ£ SHIFT /QJI SWIFT/-PKSHIFT/-SH SHI FT/T3IS 
HIFTxUJLSHlFTxOKSHIFTyOtKSMIFT/VJE SHIFT 
sZl 1734507898 



150 PPirntnR*ciartsniFT^fljisHifT^eKSHi 

FT^CILSHJF r^|-J3I SHIFT xEH SHIFT, F KSHI 
FT/fiJtSHIFT/l ljLSWIFr^ni SHIFTS K SHI 
FT^XJGSHIFT^JCSHlFT/njl SHIF T,-N JI SHTF T<sQ 
U SHlFT/rJ15HlFr.-fJK^HIFT/RJ[SHIFTrSJISM 
IF Vf JI SHlFT^UJtSHIFTxKJCSHIFT-OCjr SHIFTS 
YK SHIFTS] 1234567890" 

168 PPinrtHRit 11f3 )" ABCOEFGHl Jr<| P1NOPQR5TU 

UXYZ 1731567838' 
I78 PR]HTCHRi( |ftl 'ARf;nF.FGHUKI MNOPORSHW 

XV? 1231SS7898 

710 POKE50334.FEEKC56334)flND?54 

230 PtlKEl .HEEKtl JflHn?5l 

230 X<*E£K('5D2 < J6i J ) 

2<I0 POKE! .PFXKf 1 irjR4 

250 POKE5933-1 .PEn.Ki:-.6T<1 X)Rl 

?.W POKtlMI^Xtj.X 

??V HFXTJ 

?R8 Pf?KE43275.l20 



Pte0liR«NU5TNIMr. 4 

18 " 
20 0rEN3,1 

30 F(JRP^iai52TQ51133STEP8 
40 A=PEEK(P):Frtl^t.SIPttn):Pfl*=RinHTnr 
fli ,4 J 

58 B=PEEXfP.l l:PBt-A4*SlRitB):PBt=RlGHT* 
CPBi ,1 ) 

60 C=PF.F.K!fw^J:rC4^4*^lRifC):pr:it=RIGHTi 

ipr.*,4 i 

73 D=PF.EKlPt3];pai ; ni.STR»tD]:Pnt^RJliHlt 
IPUi.1 J 

8« EtPEEK(P»1 ):PE*=A4»S1PUEj:pF:»«RlGMM 
IPE4.4) 

30 F=PEF.KCPt5 3:PF*»fl4fSTRS[F ):PF4=RIGHT* 
CPF4.4 J 

I»0 G=PEEK tP-f n J: P^l ;f*i*STR4C G J: f'Gi=RIRHT 
iCPGi .4 J 

110 H«P6KK[P*-?J:PH*-ft4»sm[H3JrH4=R|GMl 
♦CPHt.13 

120 X»=T , n4^PBt.PCt'.Pn4-.PEi»PF*-.PGHpH* 
13B XRt=5TRi(P i:Xl:XFJ4tX-l;pRINrn3.X4 

140 NEXT:CI.OS£3:£ND 



PROORflML I 5TNIHG 5 0 

60 P0*CE5633--. .PEEtCC 56334 )flN07S4 
70 P0KE1 ,PEEK(1 1AN0?SI 

80 FORT =0Tn78-aR: P0KE5 1 780t T . PEEKt 55236t T 

):NEXT 

9» POKE 1, PEEK (I 1UR4 

100 P0KE56331 .PECK;(5fi334 )ORl 

700 OINn(501 

20 l FOPT =8Tt)'l7: REfiDNt T 3: NEXT 

202 FORG-BT023:POKE51416-»G.MCG3:NEXT 

203 FORG-0TO23:PfJKE5l32P-fG.nCG*?3):NEXT 
300 nO'rA0.0.50.l3.R?.7fr,5l .0 

31 0 I1P.1P0 ,0,67.1»3.1B7.I 15,62.0 

320 DP.Tft24.0.60.8.62.I07.87,0 

490 UOTR31 .14 . 108. 126 . 188. 1 88 .1 1 1 .8 

S0« Unifl73.34 ,103,107.115,34 ,92,0 

51 0 Oni A?4 .36 .60 . 102 . 1 26 , 1 82 . 1 07 .fl 

618 POKE56578 .l'F,EKCS6578 J0R3 

628 PUKE56576 . f PE EK C36576 JAN0252 30RB 

630 PfJKE53777.trtEKC53277 JAND15 10R1B 

640 Pt)KE64fl.l96 

650 POKF53772 . (PF_EK(53?77 JPMD210 30R? 
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Programanmeldelser 




Ghostbusters 



Spegelsesbanden er over os. Gen- 
nem den sidsie maneds lid har PR- 
folkene hos Colombia-Fox grundigt 
torberedl os pa dens komme. Plaka- 
ler, sma Wistermaerker, spots i TV og 
en icrefaldende melodi har banet 
vejen (or filmen ^GHOSTBUSTERS". 
der far premiere herhjemme i mtdten 
aldecember. Ikalvandetpadennepa 
forhand naasten sikrede succes. er 
der naiurligvis (i tighed med f.eks. 
DALLAS og WARGAME) kommet el 
computerspil til Commodore 64 og 
del er naiurligvis her RUN kommer 
indibilledet. 

Filmen GHOSTBUSTERS 

Filmen handler orn Ire parapsykolo- 
ger, der ironisk nok den dag, hvor de 
terste gang far kontakt med et virke- 
llgt spegelse - bliver fyret af det uni- 
versitet. der har fmansieret deres 
lorskning i det overnaturlige. 

I stedet opretter de et privat firma 
»Sp0gelsesbanden« (Ghostbusters), 
der skal ernaere sig ved at skille folk af 
med uvelkommende spegelser. 

I starten gar det naturligvts skidt, 
men efter en »vel!ykket« indfangning 
af et spegelse pa et hotel, kommer 
der pludselig gang i forretningen 
New York begynder pludsehg at vnm- 
te med ander i alle multge afskygnin- 
ger og sptsgel sesbanden ma arbejde i 
dogndrift. 

Fil men stiger gradvis mod det kata- 
strofale klimaks, hvor alle ander, der 
imellemtiden er sluppet Los fra spa- 
gelsesbandens opbevaringsboks tor 
spegelser.undslipper Detskyldesen 
emsig embedsmand fra miljoministe- 
riet, der er bange for, at de mdespeer- 
rede spogelser skal forurene. 

Nu lurer iordens undergang I'ge 
om hjornet og kun spagelsesbanden 
kan hjaslpe. Den overraskende slut- 
ning skal dog ikke robes her 

Filmen er sa usandsynlig, at man 
med det samme opglver enhver tanke 




om at tage den alvorfig. Det hele gli- 
der dog let ned pa grund af den alle 
stedsnservaerende humor, der selv 
de mest alvorlige situationer kaidei 
pa latteren . Udt kasrligehed er der og 
sa blandet i filmen. men selv den spi 
ler pa komikken. Hvis man gar i biog 
rafen for at more sig over det usand- 
synlige - sa er »Ghostbuster« sagen. 

Spillet GHOSTBUSTERS 

Kunne man lide filmen og har en Com- 
modore 64, kan lajerne fortsaatte der- 
hjemme. Ideen med spillet ligger ret 
t33t op ad lilmen 




Du starter nemlig selv et firma 
»Ghostt>usters«og i lighed med filmen | 
er startkapitalen ringe (S 10.000) og 
dem mS du admtnistrere pa bedste 
vis Du er nedt til at investere I en tul | 
og her kan du vsetge mellem fire for- 
sketlige priser. Bilen skal udruste 
med forskell igt udstyr til bekaempelse I 
at spogeiser og det koster ogsa pen- 1 
ge. Det samme ger det udslyr, river: 
rnand skal forsynes med. 

Sa begynder der at indlobe meldin-- 
ger om spagelser , og pa et ko rt kan din 
se, hvor meldingen kommer fra. Pm 
kortei indtegner du den rute, du vil 
kore. og sa er det med at komme all 
sted, medens spogelset endnu er trt | 
stede. Kommer du I kontakt med 
spageiset, geelder det naturligvis orr»l 
at indfange det. og det er nu ikke sm 
let. Pa din rutegemrnem byen gar dul 
ogsa klogt i at indfange de ander den 
svaever rundt pa gaderne. inden d*| 
nar at samle stg i et andetempel miot » I 
byen, hvortra katastrofen til sidst ud«| 
springer. 

Antal let a t meldmger om spagelsef 



a 



acceiierer efterhanden som byen 
bllver mere og mere »lnficeret« af Sn- 
ider, og sa er del om at skynde sig . 

Slipper du helskindet gennem fsr- 
ste runde, er du bedre rusiel til neeste, 
idet de penge du har tjent i ferste om- 
gang kan overtures til neeste, til keb af 
bedre udstyr m.v. Men tro ikke del 
bliver leftere at den grund! 

Spillet har en god grafik, uden pa 
nogen made at vlrke imponerende. 
Lydsiden er derimod helt i top. og spil- 
lel er vfrkelig morsomt og lEengslen- 
de. Der optrseder savel i filmen som i 
spillet en til andernes rige Mdervogtern 
og »n0glemester« ( der tkke ma fa kon- 
takt med hinanden. Umiddelbart kan 
deres funktioner virke licit uklare, og 
derfor far man afgjort mest ud af spil- 




let, hvis men har set filmen, idet bru- 
gervejtedningen er kortfattet og pa 
engelsk. Del skal dog nsevnes, at den 
vejledning, jeg harset.kuneren fore- 
lebig vejiedning. 

Uanset om man kan lide del eller 
ej. sa er GHOSTBUSTERSover os pa 



den ene eller anden made, og her op 
mod juleiid er del meget rarl med god, 
udskadelig underhotdningaf hej kvali- 

tet. 

Ghostbusters fas pa kasselte og di- 
skette lil henholdsvis kr. 245,00 og kr 
295,00. 



Vurdering: \ 
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Instrukllon D D K □ 

Prfflstation □ B □ □ 

Bet|enlngsve|lednmg D B n □ 

Grafik C H □ □ 

Lyd SI □ □ □ 

Variation D 33 O □ 

Fangslende H □ D □ 

Prisrtcvalitetsforhold D M C □ 



Impossible 
mission 

Skurken i dette spil er Dr. Atombender. 
Han er traengt ind til affyringskoderne 
hi atomraketterne i USA. Han har end- 
nu ikke faet fat i alle koderne; men det 
er kun et spargsm^l om tid, for det lyk- 
kes. Dr Atombender holder til i en un- 
derjordisk ksernpeDunker der indehol- 
jer 32 rum. 

Dit primsere mal er at na frem til Dr. 
Atombender, far nan far alle koderne. 
For at komme ind I selve aff yringsrum- 
met. ma du forst finde den hemmelige 
kode. Simpell ikk'? Men nej. 

Alle rum i bupkeren er overvaget af 
en eller flere menneskessgende ro- 
botter . Du er nod til at komme i rumme- 
e Dr. Atombender har nemlig delt sit 
superkodeord I flere stykker Disse 
stykker ligger gemt rundt omkring i 
miablerne, Find disse ogsaetdernsarn- 
■nen til et stykke. Til det er du udstyret 
med en avancerst lommecomputer. 
Der er dog Iid1 hjaelp at finde. Der er 
nemlig ogsa skjult andre kodeord 
rundt omkring. Disse kodeord sastter 
3ig i stand til at saette robotteme mid- 



lertidigt ud af drift og flyrte rundt pa de 
sma elevatorer som du er ned til al be- 
nytte for at komme rundt i rummene- 

Konsklusion 

EPYX har gjort det igen! Et superlsek- 
kert spi I der til stadighed kan holde ens 
opmeerksomhed fanget. 

Men inden vi fortaber os i roserne. 
vll jeg godi komme med et hjertesuk. 
Hvornar bliver det mon et krav til pro- 
ducenterne. at brugsvejledningernetil 
spillene er pa DANSK? 

Spillene bliver mere og mere kom- 
plicerede, og det ma derfor vsere el 
krav, at man er I stand til at forsta de 
grundliggende regler for afvikhngen af 




spillet. Gar nogetveddet NU, CBSog 
alle jer andre importorer. 

Men nu tilbage til roserne. Spillet 
har det heie. Fioi grafik og god lyd. Dr. 
Atombender taler lidt, og det gcr han 
meget godt. Desuden har dette spil. til 
forskel f ra an dre spil , der foreg ar i I lere 
rum . ingen ventetid meNem rummene, 
man gar fra det ene til del andet. 

Allsa, masser af roser og kun en 
lorn. Flol klaret. 

Jeg kan anbefaie dette spil meget 
hojt og ger det gerne. 

Prisen er 245.- for diskette og 1 95,- 
kr. for kassette. Det ma siges at vasre 
meget rimeligl. Nuservi sa frem til nae- 
ste spil fra EPYX/CBS med stor spasn- 
ding. Kan de holde kvaltteten? 



Vurdering: ^ o> 

& -D | S 

f fiC 5 £ 
S (3 g g 

Instruktion □ H. □ D 

Prestation H D D □ 

Bet|eningsva|ieOnlng □ B G D 

Grafik B □ □ □ 

Lyd □ DO □ □ 

Variation B □ U □ 

Faengsiende HOOD 

PrisAvaliletsfofhoJd B □ □ D 
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Raid over Moscow 



Langt mere krigerisk indhold, men 
desvasrre nok ogsa tangi mere realis- 
me, finder man i spillei »Raid over 
Moscow. Her gar startskuddet (ak- 
tisk tit den 3. verdenskrig, og del er 
ikke sianget>0sser man kaarmper med, 
men al lerede f ra starten atombeveeo- 
nede raketter, der med sin altsdelaag- 
gende spraengkraft er pa vej mod ma- 
let. 

Da spillet er fra U. S. Gold, er det 
(naturligvis) russerne, der starter med 
at afsende 4 raketmissiler fra en af 
deres (i spillet) 3 raketbaser. 

Spillet starter hos forsvarskom- 
mandoen i USA, hvor m an ser et bille- 
de af den nordllge halvkugle, der bl.a. 
viser Sovjets raketbaser og USA's 
strategisk vigtige mal. 

I kredslab i en fast bane over jorden 
ser man desuden den rumforsvars- 
station, der skal prove pa at uskade- 
liggare angreb fra Sovjetunionen. 
Man ser derefter lire raketter blive af- 
fyret fra Sovjetunionen, og USA's 
computere beregner lynhurtigt deres 
mal og tiden indtil nedslaget. 

I spillet (og formentlig ogsa i virke- 
ligheden) er der kun fa minutter iil at 
uskadeliggare raketterne. I spillet 
(modsat virkeligheden) sker forsvaret 
ved a! sende et antai bemandede 
raketfly mod USSR's raketbaser for 
at uskadeliggore den kommando- 
central, der dirigerer raketterne mod 
malet. 

Du har fra starten 9 raketfly til din 
disposition, og dit forste problem er 
overhovedet at fa dem ud af rumhan- 
garen. der kun har en lille abning, der 
endda kun kan vaare aben i kort tid. 



Breakdance 

Spillet gar ud pa at 1-2 spillere. skal 
prove at overga computeren i at me- 
stre de forskellige dansetrin. 

Der er 5 muligheder at vasige imel- 
lem. Men selvom spillet hedder Break- 
dance, handler det faktlsk om at gare 
de sarnme trin som computeren gor. 
Temmeligkedeligt. Man kan ogsa sast- 
te sit eget danseshow sammen og sa 
opfare det pa tribunen. Der er selvfel- 
gelig musik til. Men den kunne vasre 
meget bedre. 

Det kan selvfelgelig godt vaere at 
spillet kan virke tiltrsekkende pa folk 
der selv dyrker breakdance, men for 



Desuden ha r du kun lidt plads i hanga- 
ren at manovrere pa, sa allerede her 
er mulighed for at saette kostbar tid og 
kostbare fly over styr. 

Scenenet er fantastisk livagtigt og 
lyden er aldeles fremragende. 

Vel ude af rumstationen er turen 
ned til jorden og i naerheden af den 
russiske raketbase belt uden proble- 
mer . Turen bruger bare en forfasrdelig 
masse kostbar tid, og man gor derfor 
klogt i at tage flere fly med ad gangen. 

Turen over de russiske landomra- 
der minder en del om spillet Zaxxon, 
hvor man skal angribe og bliver an- 
grebet af forskellige jordrske mal. Det 
mest generende er dog at se lumske 
varmessgende raketter, der angriber 
bagfra, og som man kun kan undga 
ved at ffyve lavt. 

Sa kommer man (maske) helskin- 
det frem til raketbasen, der bestar af 
en kontrolstation og fire raketsiloer. 
Man skal uskadeliggore kontrolstatio- 
nen for at afvserge fa ren . men man f a* r 
ekstra fly, hvis man har tid til at udska- 
deliggore en eller flere af raketstlo- 
erne. 

Lykkes det at uskadefiggcre kon- 
trolstationen, sender russerne nu en 
ny sending raketter af sted fra en a( de 
andre raketbaser, og man ma" pa" den 
igen. Alle tre raketbaser ma uskade- 
liggores, for vejen kan ga" til Moskva. 

Her venter nye overraskelser. Sov- 
jets forsvarscenterskal uskadeligga- 
res, og nu er du nede pa" jorden og skal 
kaempe sa at sige mand mod mand. 
Du skal skyde dig vej over en stasrkt 
torsvaret plads, hvor soldater og 
tanks angriber dig. Deter fantastisk at 




se soldaterne falde ned af muren. nar 
du rammer dem. 

Til slut kan du komme ind I hoved- 
kvarterets reaktorrum, hvor du skal 
uskadeliggare de robotter, der kole' 
reaktoren ned. Lykkes det, bliver re- 
aktoren overophedet og sa , . . 

Konklusion 

Selv om det er et stykke legetoj , ligger 
der en uhyggelig alvor bag. Og selv 
om man matte vaere modstander al 
krigslegetoj, er det meget svasrt ikke 
atblfvegrebet af dette spll. Det ertek* 
nisk et aldeles fremragende spil med 
en fantastisk 3D-grafik og en fremra- 
gende lydkullsse. Der er tre svser- 
hedsgrader og instruktionen er pa en- 
gelsk. 

Pris: kassette kr. 198,00. Diskette 
kr. 276,00. 



Vurdering: \ 
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instnjKtion 

Prestation □ 

Beijeningsvejledning D 

Graffk H G 

Lyd DO 

Variation □ 

FasngslerxJe 00 

Pris/kvalltetsfortioSd K 



a □ □ 

HDD 
ODD 
□ □ 
D □ □ 
HDD 

Q □ a 
□ □ n 



en gammel f yr som mig (30), er del slet 
og ret m^gkedeiigt, og spild af penge- 
ne. 




I mine ojne er dette undtagelsen de' 
bekraefter reglen om, at EPYX altid la* 
ver fersteklasses spit. Prev igen EPYX 

Pris kr. 245,- og kr. 195,- for her> 
hoidsvis diskette- og kassetteversion 
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□ 


a 




Beljeningsvejledning i_ 
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Gratik 
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09 


□ 
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Fsngslende 
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Prisvkvalltetatofhota 
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TIL COMMODORE 64: 
STAVEPROGRAM 

IB REM *« « ***t» •■i.»«nunii»ij»x> 

20 REi1 « STAUEPROGRAM FOR B0RN X 
10 REM * ftF x 

10 REM X STEEN SCHMELTZER * 

30 REM * x 
60 REM XUXJIlll TWJdliXM xxxxxxmi 

65 : 

70 PRINTCHRU8 ):REI1 SHIFT UIRKER IKKE 
80 POKE 7B8.5?:P0KE 792,193:REn RUN/STOP 

C RESTORE UIRKER (KKE 
90 U-53248:REM SPRITE REGISTER 
100 PO=0:S=0:REM 5PRI TEPQSITION & FEJLFL 

PiG 

110 PUKEV-Zl ,0:REr1 SLUKKER SPRITES 

128 DIM ANTAL4C200 ) ,B*C2BB ) : REM MAX 200 

ORD 
125 : 

130 POKE532Q0.0:REM KANTFARUE SORT 

110 POKE 53281 ,0:REM SKt RMFARUE SORT 

150 PRINT [ CLR/HOME] ":REf1 SLET SKtRMEN - 

160 FORL = 1 T08: PRINT: NEXTL : REM 8 NED 

173 PRINT *f! CRSR/R rGHT*8H SHIFT/UK SHIFT/ 

"203CSHIFT/I J 1 
180 PRINT "[ CRSR/RtGHTx8][ SHIFT^-k23 

190 PRINT T CRSR/R rGHT*B*}t SHIFT /-*2J 

200 PRINT'T CRSR>Rt6HT*83CSHlFTV-x2j 

210 PRINT I CRSR^tGHT*8)CSHIFTy-K2] 

270 PR IN I "| CRSR/R IGHT*8H SHIFT/-*2] 

230 PRINr"CCRSR/RtGHT*8HSHlFT/jn SHIFT/ 

**20U SHIFTS ]" 
240 FDRS=ITO10:REM SKIFT FfiRUE PAA TEKST 
250 PR I N T "l" I IOnE J " : FORL =1 TO 1 I : PR I NT : NE XT: 

REM It NED 
260 PR I N T " [ CRSR/R I GH X ' \ 2 J [ GPN J STftUEPROGR 

AN' 

270 FDRT = ITO50:NEXTT: REfl T IDSFORSINKEISE 
280 PRINT T HOME! " • FORL =1 TO I 1 : PRINT: NEXT 
290 PRINT [ CRSR/R LGHU12 'II UJHT JSTAUEPROGR 
AN" 

300 FURT-nO50:NEXn:REPI TIDSFORSINKELSE 
310 HEX TS: REM FARUESK IFT SLUT 
315 : 

320 GOSUB10S0:REM DEF INER 3 SPRITES 
330 FORL =BT0255 

340 GOSUB2380:REM TIDSFORSINKELSE 

350 FORL =255 TOBS TEP-1 : PUKEU+0 . L i NEXT: REM 

8IL TlLBAGE TIL START 
360 PRINT tCLR/HONE) INDTAST NU DE ORO 

DER SKAL STAUFS !" 
370 PRINT"". CRSR/OOWNX23 MAX 

200 STK . ~ 

390 INPUT"tCRSR/00UN»2] HUOR T1ANGE ORO 

SKAL BRUGES " ; ANTfiL 
390 JFANTAL<0ORANTAL>208THEN360 
400 lNPUT"CHOnE][CRSR/POWN»93 SEKUNDER 

ORDET SKAL SES ";G 
*»10 IFG<1THEN400 
420 SE=G*100 

438 F ORLL ; I TOANTAL : REM START iNDTPiST ORD 
440 PRINT f CLR/HOriEK CRSR/DOWN*3H CRSR/R 

IGHr*5]0R0 NR. "ILL. 
450 INPUT' ' :B4CLL3 

190 PR I N T "f HOME ] I CRSR /DOWN * 2 0 ER 
OROEI SfrtuET RIGTJGT C CRSR/OOUNxl K C 
RSR /LFF T * 1 5 ] ( RUS/ON J J [ RUS/OFF 1 A/[ RUS 

/OMTUl RUS/OFF3EJ ' 

470 serm 

430 I F At = N THEM448 
190 VfM' J THEN510 
500 IFftlO-J OR A* ON THEN170 



518 NEXT 

520 PRINT'T CLR/HOME H CRSR/00UN*3J 

ER OU KLAR TH. AT STARTE T 
530 PRINT' t CRSR/DOWN*3J 

C RUS/ON ur RUS/OFF ] A/E RUS/ON DNE RUS/ 

OFF ] E J " 
540 GETAt 

r »50 I » At > N THCNS40 

560 IFAf = • TH6N5H0 

570 IFAtO'J OROtO N TNEN540 

575 : 

560 PRINT r CLR/HOME 'J ! 
530 PUR LL i 1 TOANTAL 

608 IFW- 3 THftNGO I'tlB 1 0" REM HU(S FORKERT 3 
(3*Nfi£ SI UIS RIGI'TG SOAR. NVT ORI> 

E>10 RfJSUli2030:PRINT ' i HOME It CRSR/DOUN* 1 0 J 
[ CRSR/RlGHTxeiORO NR. "LL"* = ":B*.tLL 

620 F0RT=1 TOSE: NEXT T: REM SJ LI NGE U1SES 
OROET 

630 PRIN f '[ HOME It CRSR/OOUNx 185C CRSR/RIGH 
t*6.l 

B40 INPU T 1 I IUMCK CRSR/DOWNx [0]C CRSR/RIGH 

T*6r';Ct 
050 PXr235/ANTALrSOSUB2030 
660 REM ORD OK FLYT BIL FREM 
670 I FC* =81 ( LL JTHFNS = 1 : GOSUfll010: E0SUB23 

70: i;OSMR?140: GOStlBl 790 
R88 REM FijRKERT BIL TILBAGF 
630 IFC* <>B*CLL)niENS=0: U=U + 1 : GOSUB101 0: 

GO5U8iS30:GOTO?6Q 
700 G0SUB23fl8:REM TIDSFORSINKELSE 
710 UJ=0:REM FEJL STTTE5 TIL 0 
220 Q-Q • 1 : REM ANTAL RIGTIGE 
738 ROSUB2320 
7 40 HEX I'LL 
750 GOTG870 
268 G0SUE3223U 

770 P,DSOB23B0:REM TIDSFORSINKELSE 
780 Y=YU:REM ANTAL FORKERTE 
730 GOSU82320 
800 GOTfimiR 
810 : 

87M PRIM;' - llfJUni rRSR/U0WN*.181ICRSR/RlGH 

r«9}5VASET ER = :B-HLLJ 
83fl GFTA5' IFAt - "THEM838: RP M NYT ORD NJR 

TA^T RBRfiS 

B it* URtMf 'l IIOMf IT CRSR/DOUNH0 If GRSR/RIGH 

t*m 

850 \4--9i 
mPl NT X T LL 
870 liinsilB2100 

980 PRINT'T HOMf U CRSH/00UN*5] PROG 

RAMrtET ER NU SLUT 
890 PRINT f CRSRxt30UN»3H CRSR/R IGMTx730NS 

KCR DU AT PR0UE SGCN 
900 PRINT [ LRSR/0OWNX23C CRSR/R IGHTx 16 ][ R 

US/DN 1 J I RUS/OFF 1 A/C RUS/0N3NC RUS/OFF j 

EJ 

918 GETAt 

920 IFA*= 'J THCN970 

930 IF01= H T.IEN953 

940 ]FAt<> J '0RA*O"N" THEN910 

950 FORO -PY TD255 iS'U GOSUB 1010: NEXT 

960 PP;NTrMRtf3];POKE792,71:P0KE788.49:E 

ND 
965 : 

970 RFST0RF:POKEU+21 .0: Q=0: Y=0 : 5=0: PY=0: 
GOSUB1080 

Sm FORI .=?55T08STEP -l:PCIKF'Jt0.L:NEXT:REn 

K0R BIL OUER SKC RMEN 
930 EiOSUB23B80:REn TIDSFORSINKELSE 
1080 GOT 0528 

1010 REM FLYTTF B[L ROUT INt" 
IR28 IFS = 1THENPY=PY^X 
IB*30 IF^=RTHENPV=PV-PX 
1640 IFPY>255THENPYr25S 
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1050 If PY<R1HFNPY=0 
I0&0 POKEUt-S.PY 
1870 RETURN 
1075 ; 

1080 REM SPRC TF 0 
1090 REM DATA FOR UEJ 

I 100 POKE2043, L35:POKE2044.195:POKE2045. 

1 95: POKE204G . 1 95 : POKE204 7 . 1 95 
tl 10 F ORN =0 1062: READX: POKE 1 2'480-i-N ,X: NEXT 
N 

1120 POKEU+42 . l:P0KEUi-43,l 

1130 PnKEUM4.1:P0KE0i-45. I : POKEU+46 . 1 

II 40 PflKEUtfi,30 

1 1 50 POKEO « 8 . 78: POKEU*- 10.1 26: POKEU*- i 2,17 
4: POKE'." M.222 

1150 POKEU+7.283:POKEO+9.200:POKEU+11 ,20 
0 

1170 POKEiJ^t3.200:POKCU'l5.200 
1190 I1AW0.B.0.0.0.0.0.B.B 

unrna. 0.9. 0,0.0.0.0.0 

121 0 Ijnrfl0,0.0.255.255 .235.0.0.0 

1220 nnrfl0.0.0.0.9.0.0.0.0 

1230 nnrA227.1l2,56.0.0.0.0.0.0 
1240 OA TAB. 0,0. 0.0. 0.255. 255, 255 
1245 : 

1250 REM SPRITE 1 

1250 POKE2041 ,193:REM SET POINTERS 

1270 FORI =0TO62: READX: REM INDUS DATA FO 

R STOP SKILT 
1280 POKE 1235?i-I .X: REM POKE DATE I PIXEL 

LOCATION 
1230 NEXT 

1300 POKEU-40,8: REH FAROE ORRNGE 
1310 P0KEU*3.t85:REM Y POSITION 
1320 rOKtV't6.2:REn RIGHT X POSITION 
1330 POKEU*2,100:REM X POSITION 
1340 0ATA255. 255.255.128,6.1 .156,133 
I35B DATA57, 144. 133. 17. 156. I 33, 17, 132 
1360 DATA 133. 1 7. 156. 731 .17.128.0.1 .255 
1370 OATA255.255.128.0.1 . 128.0.1 .128 
1380 EJATA0 . I .129.0.1 .178.0.1 .120.0.1 
1390 IWA179 .8 . 1 , 128.0. 1 , 128 
1400 DA TAB. 0 .0.0.0.0.0.0.0.0.8.0.0.0 
1405 : 

1410 REM SPRITE 3 

1120 PDKE2040.192:RCM SET POINTERS 
1430 FORI =0TO62: READX: REM LCS DPiTA FOR B 
IL 

1440 POKE 12288. 3 ,X; REM POKE DATA I PIXEL 

LOCATION 
1450 NEXT 

1460 POKE0'39.|4:REM FAROE LYSE-0L1 

1470 POKEUM .?00:REM Y POSITION 

1180 POKEUMG,0:REM RIGHT X POSTITION 

1490 POKE'Ji-8 ,B:REM X POSITION 

1500 DATA0.0 ,0.0.0,8.0.0.0.0 .0.0,0,0,0 

1510 DATft0 .0.0.0.0.8.7. 254 . 1 6 ,8 .33 

1520 DATftlG , 16,32 , 144 .63 , 255 ,254 

1530 DATA64 ,40, 131 . 129 .3? 

1548 0ATfH31 .128.32.130.255,255,252 

1550 DATft62, 1,240. 28. 0.224 .0.0.0 

1560 OATA0. 0,0. 0. 0.0. 0.0.0 

t5S3 : 

1578 REM SPRITE 2 
1580 POKE204 2.194 

1590 FORI=0TO62:RFAD X: REM LCS DATA FOR 

TRl 

1600 P0KE124 16H .X 
1610 NEXT 

1620 P0KEU+4 1,5:RErt FAROE GR0N 

1B30 P0KE0 + 5 ,180:REM Y POSITION 

1640 P0KE0+lB.3:REri RIGHT X POSITION 

1650 POKEO t-4 ,150: REM X POSITION 

1660 P0KEO«-29.255:REM UDUIO X RETNING FO 

R ALLE SPRITES 
1670 P0KE0+23,255:REM UDUlO V RETnING FO 

R ALLE SPRITES 



1688 POKEO>21 .255:REM TCND FOR ALLE SPRI 
TES 

1690 DATA2. 178.0.5 ,85 ,0 . 18 , 1 70 . 128 
1700 DATn21 .85.64.10.170.128.21 .85.64 
1710 DATA 10. 170.128.5.85.0.2.168.0 
1720 DATA8.96.0.0.S6.0.0.96.8 
1730 DATA0. 96.0 .0.96.0.0.96.0 
1740 DATA0. 96.0 .0.96.0.0.96,0 
1750 DATA0.96.0 .8,96.0.0.96,0 
1755 = 

17G0 POKEU"-2,0:REM SPRITE 1 LEFT X POSIT 
ION 

1770 POKEO M 6, 2: RE" RIGHT X POSITION 
1780 RETURN 

17B5 : 

1790 REM KLAPSAjLOER 
1800 J -54772 

1810 FORM 0T 074 : POKE J *H .0: NEXT 
1870 POKE I » 0 . 240; POKFJ 1 1 ,33 
Una I'tJKri »5.8 
1840 l'UKFJ'22.104 
1850 PQKeJ*23.L 
1868 PQK£J*24.79 
1B70 TORNM T015 
1880 POKFJ+4.129 

1 890 FORT = 1 TO 1 80 : NEXT : POKE J +4 , 1 28 
1300 rORT=lTO10:NEXT:NEXT 
1910 FOR 1 1 = 15TO0STEP- 1 : POKE J t-24 ,11: NEXT I 
I 

1970 RETURN 
1925 : 

1930 REM SI RENE OEO FEJL 

1940 FORL=0rO34:POKEJ*-L,0:NEXT 

1958 P0KEJH4.5 

I960 P0KEJM8.16 

1978 P0KEJ*3,1 

1980 P0KEJ*24.143 

1990 PQKEJ*6.240 

2000 PQKE-^4.65 

2010 FR=5389 

2020 FORI" I rOI00 

2030 FQsFRtPEEKCJt-27^3.5 

2040 HF = INT(FQy256D:LF=FQ-HFx256 

2050 POKEJt0.LF':POKEJH ,HF 

2060 NEXT 

2070 FORI!=0TO15STEP-l:POKEJ+24.Il!NEXTI 

% Z\ 

2080 RETURN 
2085 : 

2090 REM FORKFRTCSIGTIGE 

7100 PRINT" t HOME J ANTAL R IGT IGE " I Q; TAB C 20 

TANTAL FORKERTE :Y 
2110 TB=ANTAL-LL: IF TB<0 THEN TB=B 
2120 PRIMT' ORD 1AL T " i ANTAL; TABC28 ) 

ORD T I LBAGE " : TB 
2 130 RETURN 
2135 : 




2140 Rfzff RI6TIGT 

? 1 50 PRINT " [ HOME 1 t CftSR/O0WNx5 3 " ; 

2160 PRINT' CSHIFT/Ul!SHIFT/»x2HSHIFT 
/I 3( CRSR/R I GHT] CLOGO/RH CRSR/1?IGHT 
3 f SH I F T/U JC SH I FT/x*3 3! CRSR/RIGHT] 

CSIirFtVKKLOGO'RlCSHlFT^r CRSR/R IGHf* ] [ 

LOGO/RM CRSR/RIGHTJ C SHI FT/UK SHIFT/M4 J 
tLOGO/RH SHIFT/-*] 

2170 PRINT' ISHIFT/-X2J £ CRSR/RIGHT] 
CSHIFT/-H CRSR/RIGHT] [ SH IFTV-JC CRS 
R/RIGHTJ !SHIFT/-K CRSR/RIGHT] 

C SHIFT/-]* CRSR/R 1 GH I ] [ SHIFT/-*2:) 

2180 PRINT" CIOGQ/QULQGQ/RH SHIFT/*!! 
SH I F T /K JI CRSR/R I GHT ] [ SHIFT/-]! CRSR 
-'RIGHT] t SH I F T/- H CRSR/RIGHT 3 I 

SHIFT/-] [CRSR/RIGHT] E SHIFT/- 3 1 CRSR/RJG 

HT] [SHIFT/-*?] 

2190 PR I N T " CSHIFT/-KLOGO/TKSHIFT/M1 
CCRSR/RIGHTJ I SHIFT/- JI CRSR/RIGHT] 
C SHIFT/- 3 I SHIFT/x]! SHIFT/13! CRSR/ 

RIGHT] I SHIFT/- J t CRSR/RIGHT] [SHI FT/- 3 

[CRSR/RIGHT J f SHIFT/- 3 [ SHIFT/x ]C SHIFT/I 

J [SHIFT/-1 

220R PRINT C SHIFT/-] I SH IFT/SPnCE JI LO 
GO/GJt CRSR/RIGHT] I SHIFT/-]! CRSR/fli 
GHT] ISHIFT/-X2) I CRSR/RIGHT 3 [ SH 

IF!/-) f CRSR/RIGHT] I SHI FT/- 3! CRSR/RI GHT 

3 [SHIFT/-X33 

2210 PRINT" CSHIFT/-J I LOGO/G3! CRSR/R 
I GHT] C SH IFT/- ]I CRSR/R I GHT] CSHIFT/ 
J 3ISHIFT/**2K SHIP T/K3C CRSR/RIGHT] 
CSMI:F1>-J C CRSR/RIGHT] ! SH IFT/-3C CRSR/R 
I GHT 3 lSHlFT/J][SHIFT/xj:2]rSHIFT/K3 I SH 
IFT/SPnCEII SHIFT/-] 
2220 RETURN 
2225 : 

2230 REM FORKERT 

2210 PRINT"CHOn£lCCRSR/DOWN*53-; 
2258 PRINT" CLOGO/Tx?3] 
2260 PRINT". [LOGO/IxU] 
!L0GO/Txl9] 
!LG60/T*I1 J 
ILOGO/Txin 

tL0GO/Txi4J 



2220 

2280 
2290 
2300 

2310 

2315 
2320 
2330 



PRINT- 
PRINT 
PRINT" 
PRINT ' 
RETURN 



REH 91. ET SKnERPI 

PRINT rM0M£.KCRSR/DOUNx5J 



2340 FORI Y=IT05 
2350 PRINP 

2360 NFXTLY 
2320 RFTIJRN 
2325 : 

2380 RFM T I DSFORS I NKELSF 

2390 FQRT -1TOI000: NEXTT: RETURN 

2395 : 

2-100 REM GOD FORNBJELSE ! 
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TIL COMMODORE 64: 
SYMBOL CODE 

88 REM xxxxxxxxxxxxxxxxxxxxxxxxx 

81 REM xxx SYM80L CODE *x* 

XXX xxx 

82 REM *xx COPYRIGHT 1982 xxx 

83 REM xxx EUANG. PETROUTSOS xxx 

84 REM xxxxxxxxxxxxxxxxxxxxxxxxx 

85 REM 

80 REM xx "[ CRSR/DDWN] " CURSOR DOWN 
31 REM xx "t CRSR/RiGHT] ' CURSOR RIGHT 

92 REM xx "£HOnET CURSOR HOME 

93 REM ** T CLR/H0ME3" CLEAR SCREEN 
91 REM xx "| BLK3 " CONTROL -BLACK 

35 REM 

100 L = 1137:PRINT ,, CBLKJ -:P0KE53281 ,E3 

105 DD-1Z68;EF=0:RU=0;SC-500 

1 10 RESTORE:F0RI=lT06:F0RJMT04 = REP.DAxtI 

.J 3:NEXT:NEXT 
120 EF=0:FORM = | TO 4 

125 D(f13-INTCRNOC3 3*B3+i: IFDCP15>6THEN125 
130 IFM'l FHEN140 

135 FORI=lTOM-l: IFDCnj-OCM-I 3THEN125 
13? NEXT 
140 NEXT 

190 REM xx THE SUBROUTINES AT LJNES: 

191 REM xx 1000. 1708. 1300 

192 RF H xx DRAW THE GRID AND THE SYMBOLS 
133 REM xx ON THE SCREEN 

280 GOSUB 1000: GOSUB1 300: GOSUBl 200 
202 GOSUB40B 

205 PRINT *[ HOME 3f CRSR/RIGHTx5][ RUS/ON JSC 
ORE: ' ;SC; '[RUS/OFF]"; "[ CRSRyRIGHTxS] 
C RUS/-ON)f«JERAGE: " ; U9; [ RUS/OFF 3 " 

200 GETR*:lFR*:- THEN20B 

210 IFRt = lFl]"THEN235:REn Fl FUNCTION K 
EY 

212 IFRt = T F73 "THFN?40:REt1 F? FUNCTION K 
EY 

213 IFR*= 1 1 HENG00 

21 1 IFR*=-' 1 ' THENSD=DD: AIM: GCTO500 

215 IFR*= 2 THENSD=DO>3: A2 = l : GOTO500 

216 IFRt = 3 THENSD=DO«-6: A3 = l : GOTO500 

217 IFRl:"4"THENS0=0D*8:A4=l :GOTO500 
220 IFRir H"THENSC=SC-50:GOTO450 
230 GOTO205 

235 LI =L:L=L-120: IFL<1 137THENLM737 

236 GOT0245 

240 LI =L:L-L»120: I FL> 1 737 THENL = 1137 
245 GOSUBl 200 
250 GOTO205 

400 REM xx MIODEN CODE xx 

402 POKE 1938. 102: POKE 1931 . 102: P0KE1933 . 1 

02: POKE1 934 .102: POKE 1 936 . 1 02 
405 POKE I 932 , 102: POKE 1 939 . 1 02: POKE 1940 . 1 

02 

4 10 POKE 1970, 102: POKE 1921 , 102: POKE 1973 , 1 
02:POKE1374 . 1 02: POKE 1 976 . 1 02 

415 POKE 1 977 ,102: POKE 1979. 102: POKE1380.1 
02 

420 PRINT [ HQMEK CRSR/DOWN*20][ CRSR/RI6H 
TX263HIDDEN CODE": 

430 PR1NI '[ HOME31 CRSR^D0WN«2 1 ][ CRSR/RIGH 
T *25 J [ LOGO/A ][ SH I F T/x x \ | ] [ LOGONS J '* 

432 PRINT '[ CRSR/RIGHTx.25] t SH IFT/-3C CRSR/ 
RIGHTxl 1 ][ SHIFT/-3" 

431 PRJNr*[CRSR/RIGHTx25][SHIFT/-][ CRSR/ 
R I GH I x 1 1 HSHIFT'-J ' 

436 PRINT "'[ CRSR/fl I GHT*25 J [ LOGO/2 ][ SHIFT/ 
xx l tj[ LOGO/X ]';: PRINT "[ HOME J " : RETURN 
450 REM xxx HELP xxx 

455 IFRU-0THEN Ql =1930: GOTO460 

456 IFRU- 1 THEN 01 =1933: GOTO460 

457 IFRU=2THEN 01 =1936: GOTO460 
45B 01 :1339 

460 RU=RUi-l:Fl=DCRU) 



465 POKEQl .A*(F1 .1 3: POKEQl + 1 .A*CFI .2 3;P0 

KEQ1 »4B.AXCF1 .3 3: POKEQl Ml .A^CFl .4 3 
462 IFRt= H ANDRU=4THENSC=0: GOT0B22 
470 IFRU =4 THEN 830 
475 IFGG=9THENRETURN 
4B0 GOTO205 

500 REMxxx QRAU A FIGURE xxx 

505 IFL=1137THENF6=l:GOTO520 

506 IFL=1257THENF6=2:GOTO520 

507 IFL=£377THENFG=3:G0TO528 

508 IFL=t497THENFG=4:G0TO52B 
503 IFL=16I7THENFG=5:GOTO520 
510 If L = l237THENFG=6:G0rO52B 

520 FOKFSn.AxrFG.l ]:POKESD"M ,Ax TFG .2 J:P0 

KESD+40.AxrFG,3.1:POKESOt4l .A^CFG.I 3 
522 R=UALCR* 3:BCRl=FG 
525 GOTO205 

600 IFAl=0ORA7-0ORft3=0ORrt4=0THEN205 
605 F=0:P=0 

610 Al =0: A2=0:A3=0=A4=0:EF=EF+l 

64e rORIl = lT04: IFBCI I 3=DC II 3THENP=Pi-l 

513 NEXT 

650 FORM=l TO 4:F0R K=1T04: 

655 FORS=nOM-l: IF BCM3=BCM-S 3THENS=M-l: 

K=4:GOTO690 
657 NEXTS 

680 IFBCM3=OCK3THENF=F*l 
685 NEXTK 
690 NEXTM 

695 IFPOUHENGOSUB1600 
690 IFP=4 THENDO = DD + 1 20 

700 REM xxx ChFCK GUESS xxx 

701 IFEF>2THENSC=SC-10 

207 OR=OU-120:IF F=0THEN780 
703 IFn0=1268THEN0R=l868 
705 POKEOR* 14,81: 
710 IF F=1THEN750 
712 P0KE0Rt55.8I 
715 IFF=2THEN750 

717 POKEDRfr] 5.81 

718 IFF=3THEN750 
720 POKEfJR* 54.81: 
750 jrP=0THEN?05 

752 POKEOR « 17.81: IFP- 1THEN205 

753 POKrOPt5fl.8l: IFP=7THEN205 
755 POKKIJR' 18.8 1: IFP=3THEN205 
75fl P0KEDRt57.81 

780 IF P<1 THFN205 

800 REM xxx CORRFCT GUFSS xri 

810 PRINT ( HOML Jl CRSR^00UJNx23 3 ' :PRINT"CC 

RSR/RIGHTxl JGONGRrt HJLAT I ONS I ( I " ; 
BH GM=GM» 1 : SC = SO 10: 09=SC-UG: UG=UG+D9/G 

M:U9 = INT CUG 3 
816 REMPRINT '[HOME] ': *'[ CRSR/-RIGHTX5H RUS 

xf3N3SCORE: ; SC : [ RUS/0FF3 " ; "CCRSR/RI 

GHlxSilf RUS/-QNJAUFRAGE:";U9; "LRUS/OFF 

3" 

B2B GR=9; RU^0: 3OSUB450: RU-1 : GOSU6450: RU= 
2:GOSUB45B:RU=3:GOSUB450:GG=0 

872 SC=0: GM =GMt 1 : 05=SC-U6: UG=UG*D9/Gft: U9 
= INT CUG J 

823 PRINT T HOME 3 

824 PRINT [HOME]"; "I CRSR/RIGHT*5HRUS/0N 
3SC0RE:";SC: '[RUS/OFF 3 " I C CRSR /RIGHT 
x5][RUS/ON3AUERF»GE: :U9; [RUS/OFF]": 

925 SC=500:EF*0 

830 GETFt: IFF*<.> [ F 1 3 " ANDF* <>"[ F33 'ANDF4 

0 7 F5]' , ANOF*<> ,, CF?3* , THEN830 
810 PRINT "[ CLR^-HQME] " : GG=0:F=0: P=0: DD = 12 

ee:L=!!37:RLl=0:GOTQI00 
! 000 PRINT "[ CLR/HOMETC CRSR/OOUNX23 ' 
100? PRINT T CRSR/RIGHTx3]tLOGO/A3[ SHIFT/ 
"UK LOGO/S 3 [ LOGO^A 3[ SH I FT/xx2 3t L 
0G0yR3t SH!FT/xx2 3CLOGO/S3 



Id 



1001 PRINT LCRSR/RIGHTx3][ SHIFTS YOUR C 
H0ICECSHirTyB«21 FGC SHI FT/B3PSC SHIF 
T/8J 

1006 PRINT [ CRSR/RIGHTx33[LOGO/Z3[SHIFT/ 
x*Tt HLOGO/X] CLOG0^ZK5HIFT/*x2]CL 
□GO/E3T SHIFT/x*2H LOGO/X3 

1010 I-PIM! I CRSR/RIGHl*31tLOGO/fl3[ SHIFT/ 
**2H LOGO/R3 1 5H IF T/*x2 3 t LOGO/1? K SHI 
F r/**2 ULOGO/R3E SHiFT/xx231LOGO/S3 

tLOfiOyrtn SHtFr/xx^tLOGO/RlT $HIFT/**2][L 

OGO/S J 

1012 PRINT T CRSR/RIGHTx3HSHIFT/-x81 



101-1 PRINT CCPSR/RJGHT*33ESHIFT/-x23 
HIFT/SPACE3 rSHIFT/-»6) 



ts 



1016 PRINT I CRSR/RI GH Tx3H LOGO/Q31 SHIF T/ 
**2]f SHIFT*" H SHlFT/xx2]tSHIFT/+3CS 
UIFT/»*23[SHIFT/+3tSHIFT/x*23[L0G0/ 

Wl f LOGO /Q J I SHTFT/*x2 H SH I FT/+ 3C SHIFT/xx 

2Jt LOGO/U] 

101 B PR I NT "T CRSR/RTGHrx3 7rSHIFT./-x83 
1020 PRINT r CRSR/RIGHTx3HSHlFTv-*73 

rsnirT/SPftcn cshift/-j 

1022 PRINT "f CRSR/RIGHT*33tLOGO/QH SHIFT/ 
»Z][ SMIFT/+ ][ SHIFT/*x2][ SHIFT/+3C S 
HnFT/**2][SHIFT/+][SHIFT/**23£LOGO/ 

U] rLOr>0/0]ESHIFT/*x2)rSHlFT/+][ SHIFT/xx 

?H LDGO/W3 

1024 PRINT rCRSR/RIGHT*33[SHIFT/-*83 

1026 PRINT •rCRSR/R[GHIx3][SHIFT ( /-«73 
rSHIFT/SPfiCE] t SHI FT/- 3 

1028 PRINT lCRSR/RIGHTJt3HLOGO/Q3[SHIFT/ 
*x2HSHIFT/t jf SHIFT/xx2)rSHIFT/+][S 
HIFT/x*2)£SHIFT/*-3ESHJFT/x*23[LOGO/' 

143 n ann/QHSHIFT/xx2iESHIFT/+3CSHIFT/xx 

23TL0G0/U] 

1030 PRINT TCRSR/RIGHTx33[SHIFT/-x8] 

1 032 PRINT [ CRSR/R I GMT x3 ] [ SH I FT/-x7 3 
f SHIFT/SPACE! [ SHIFT/-] 

1031 PRINT 'C CRSR/RIGHTx3 ]t L0GO/Q3C SHIFT/ 
*x2jrSHIFT/+3CSHlFT/x»2 3CSHlFT/+KS 
HIFT/xx23t SHIFT/* ][ SHIFT/«x23£ LOGO/ 

W3 [LQGQ/G)HSHIFT/**2HSHIFT/+]C SHIFT/** 
2)1 LOGO/U3 

1036 PRINT [CRSt?/RI6HT*3KSHlFT/-x8] 

1038 PRINT [ CRSR/RIGHT*3][SHIFT/-x73 
t SHIFT /SPACE 1 [SHIFT/-] 

1040 PRINT T CRSR/RIGHTX31CLOGO/OH SHIFT/ 
«23tSHIFTy+3rSHIFT/x*2 3t SHIFT/* ICS 
HIFT/XX2U SHIFT/* K SHIFT/**2K LOGO/ 

U I ll.OGO/Q)[SHlFT/**23[SMIFI/+][SHIFT/s:x 

23CLOGO/U] 

1042 PRINT"! CRSR/RIGHTx3)ESHIFT/-x8] 

1044 PRtNT"( eRSR/RlGHTx33(SMlFT/-x73 
[SHIFT/SPACE] C SHIFT/- 3 



1045 PRINT T i;RSR/RIGHT*33tLO 
**23CL0GO/E3CSHIFT/x*2J 
FT/*x2][ LOGO/E3C SHIFT /x 

C LOGO/ZK SHI FT/XX2 3C LOGO/E3C 

OGCI/X3 

1050 RETURN 

1200 PQKEL1 , 32: POKEL 1 + 1 .32: P 
1210 POKELl+40.32:POKELl+4l . 
.32 

1220 F0KEL.233:P0KEL + l ,1U:P 
1230 POKEL+40,95:pOK.EL+41. ,11 
19:RETURN 



GO/Z3T SHIFT/ 
CLOGO/F3ESHI 
*23CLOGO/X3 
SHIFT/*x23tL 



DKEL 1 +2 .32 
32:P0KEU+42 

OKEL+2 ,111 
9:POKEL+42,l 



1300 POKE1 134 . 160: POKE 1 135 , 160: POKE 1 124 , 

1 60: POKE 1 125.160 
1310 POKE 1254 .233IP0KE12SS.223 
1315 POKE 1294. 95: POKE 1295. 105 
1320 P0KE1374.77:P0KE1375,78:P0KEM14.78 
1325 POKE1115.77:POKE1495.77 
1 335 POKE1494 .28: POKE I 535 . 79 : POKE 1 534 . 7? 
1340 P0KE16M.122:P0KEI6l5.76 
1345 POKEl654.S0:PaKEl655.79 
1 350 POKE 1 734 . 79 : POKE I 735 . 80 : POKE 1 774 . 76 

:P0KEl?7S.l22 
1355 RETURN 

iw RFriKx clear area for next guess « 

1615 00=00+120: 3FSD>1777THENDD=1268 
1630 P0KE00.32:P0KFDD+I .32: POKEDD+3 ,32: P 

QKED0'4 , 32: PQKE00+6 , 32: P0KEDD+? ,32 
1632 POKEODtS , 32: POKEOOt 1 0 .32: POKEDD+14 . 

32:P0KED0* 15.32: PQKEQQ+17,32 

1634 POKEDD* 18.32 

1635 POKED0MB.32iP0KEDD+1l .32: P0KED0+43 
.32: POKEOD+44 .3?: POKEOD+46 ,32 

1 636 P0KE0O"i?.32 

1638 P0KEDDt49.32:P0KE0D« 50 . 32: POKEDD + 54 
. 3?: P0KC0Dt55 .32: P0KEDD+57 .32 

1639 P0K£D0*58 ,32: RETURN 

2000 DATA 160.16B.I60. 160,233. 223,95.185, 
77.28.78.77.78,77,77 .78 .122.76.80.7 

9 

2010 (JflTfl79.e0.76.L22 
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97 
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97 
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251 
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185 
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73 
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I 20 
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92 
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28 
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Data ind 



Jeg har ofte set flere programmer, 
som jeg kunne taenke mig al prove, 
men lige sa tit - eller neesten - er jeg 
standsel af det uhyggeligeomfaitende 
arbejde det er at indtaste programmel . 
Og helt sikkert erdet.as hvis program- 
me! er en stor samSing af DATAIinier - 
ja . sS stiger jeg af . Derior har jeg lavet 
delte Idle hjaalpeprogram, der gar det 
lidt morsommere at trykke de mange 
tal ind. 

For det forste laver programme! 
VIC 20 og CBM 64 , s tastatur om til et 
numerisk tastatur. Naturligvis ikke fy- 
sisk, men »mellemrurw, "!", 
til 0, 1 , 2, 3. Og tasterne K, L, ":"til 4, 5, 
6. Tasterne I , O, P ti 1 7, 8, 9. Det gor det 
meget hurtigere - at taste en masse tal 
ind. 



For det andet genererer program- 
mel seiv alle komma "," samt linie- 
numre og DATA komma ndoer. 

For det tredie er det muligt at rette 
bcide et enkelt ciffer. en gruppe pi tre. 
samt komma - og endelig en hel linie 
forfra. Desuden kan man afbryde ind- 
tastningen nar som heist i forlabet. og 
programme! vil sarge for at sikre de 
sidst indtastede DATA-linier. 

Programme! kan naturligvis udbyg- 
ges med i.eks. en rutine, som SAVE- 
ede det, nar man atbrod indtastningen , 
eller en rutine. som sletter de linier der 
indeholder indtastningsprogrammet - 
Ira 10000 og opefter - nar det er faar- 
digindtastet . Men nu er g rund laget i or - 
den for en udbygning. 

Det er tastaturbufferen, som er an- 



kerpillen | dette program. Disse t 
RAM-positioner fra 631 og fremad be- 
laagges med RETURN kommandoer 
(POKE 631, 13osv.J. Desuden bruges 
RAM positionerne 251-254 til at gem- 
me oplysninger om linienumre og stig- 
ning i linienumre, idet disse oplysnin- 
ger ellers vil ga tabt, nir programme? 
startes med en GOTO-kommando. Ik- 
ke p£ grund ai GOTO, men fordi man ■ 
mellemtiden har ti Ifajet informationer i 
»programmerings-mode«, nemlig nye 
datalinier. 

Vil du flytte dil numeriske tastatiK 
er det blot at lave om pa vasrdierne ■ 
1021O-10310. De nye vserdier kan ta- 
ges fra brugervejledningernes afsnit 
om ASCII og CHRS koder. 



TIL VIC-20 OG COMMODORE 64: 

18088 FLM:F2 = l:PRINT"[CLR/HOf1E3F0RSTE L 

INJENUMMER": 1NPUTNL 
10010 PR INT " ST I GN IMG INPUT E 
10020 P0KE253.E 

18030 PRINT"flNTftL DATA I HUER UNJE":I"NP 

UTHT: PRINT: PRINT: PRINT 
10040 P0KE254.HI 

10050 PRINT TCRSR/'LEFT ]";NL; "DATA"; 

1B060 IFFL=0THENNL=PEEKC252)*256i-PEEK(25 
I ):E=PEEKC253):HT=PEEKC254 }:F2 = 1 

10070 I FT =3THENPRINT" . " ; : T =0: T I =T 1 + 1 

10080 1FT 1 -HTTHENPR INT "[ CRSR/LEFTX23 H 5 T 
l=0:DL=OL.H : IFDL <8THENNL=NI_tE: PR IN 
T: PRINT "CCRSR/tEFT] ' ;NL: DATA ': 

10099 JFFL=0THENPRINT -, [CRSR l /LEFTa2J :T1 
=0: Dl. =DL+ t : I FOL < 8THENNL =NL*E ! PR I NT 
: PRINT T CRSR/LEFT] ;NL; OflTfi' ; 

10100 P0KE252.NL/256: P0KE251 .NL-256XPEEK 
t252):FI_M 

10110 I FDL "8THENPR INT" GOTO 1 0060 CHOME3CC 
RSR/00UNX5 J " : POKE 138 .3: F0RX=9T08: P 
0KE63 1 -*-X , 1 3 : EXT : END 

10128 GETAi: IFM = ""THEN10120 

10130 A=ASCCA* D 

18140 irfl=133THENFORX=l TOT: PRINT "CCRSR/L 

EFT 3 " ; : NEXT : T =8: GOTO 1 0068 
10L50 lFAM34THENPRINT"r CRSR/LEFTX4 3 M ! :T 

=B:Tl=Tl-i:GOTO10060 
101 60 I F A = 1 35THENPR t NT : PR INT'T CRSR/UP3 1 C 
RSR/LEFT3 ;NL: "DATA " : : T=0: T 1 =0: GOT 
010060 

1 0 1 70 I FA = 1 36 T HENPR INT: FORX=0TO 1 2-DL »2: P 
RINT:NEXT 

10198 IFA = 13eiHENPRlNr'EHO(1E]GOTO10190:l 
CRSR.4)0UIN*5 J ' : P0KE1 96 ,9: FORX=0TOB: 
P0KE63UX,13:NEXr:END 
10190 IFF201THENPRINI "[HOME H CRSR/'OOUN* 

23 ]C CRSR/LEFT J ~ ; 
10200 1FF201 THENNL =PEEK( 252 3*256+PEEKC2 
51 >:PRINTNL: 'DATA-; : HT =PEEKC254 Jj E 
=PEEKC253 ) 

10210 IFF 2<> ITHENFL -1 : A* = F2 = 1 : GOTO 18 
100 

10220 IFft=32THENPRINT"0"; :T=T+l:GDTO1006 
0 

10230 If fi=44THENPRJNT : T = T*1 : GOTO1006 
0 




10240 IFA-46THFNPR INT 2 : : T =T* I : GO TO 1 006 

8 

10250 I FA =47THFNPR !NT"3" ; t T=T+ 1 : GOTO 1 086 
0 

1 0 260 IF A =75 THENPR I NT "4 " ; : T =T * 1 : GOTO 1 006 
0 

10220 IFfl=?6THENPR INT"5": :T=T*I :GOTO1006 
0 

I02B0 1FF*=58THENPRINT"6"; :T=T*1 :GOTO1006 
0 

18290 IFA-73THENPRINT"?"! :T=T*1 :GOTO1086 
0 

10300 IFF^79THENPRINT"8";:T=T-H:GOTO1086 
0 

10318 IFfl=B0THENPRINT ,, 9 ,, S :T=T+i:6OTOlB06 
0 

10328 IFf1=20THENPRlNTCHR$t20];: TaT-i:60T 
010060 

10330 IFft=145THENPRlNTCHR»f 145 J;:T=T-i:B 
OTO10060 

1 8348 IFflM 7THENPR 1N1CHR4C 1? J; : T =T-1 : GOT 
010060 

18350 IFfl=?9THENPRINTCHRiC293J! T = T-1!G0T 
010060 

10360 lFA=l52THENPRINTCHRi[152 J;:T=T-1:G 

OTO 10068 
10370 GOTO10120 



KONTROLSUn FOR DflTAINDLESNING 



;:T = T1-1:G0T 



10800 


39 


10010 


68 


10020 


162 


10030 


171 


10040 


250 


10050 


35 


18060 


223 


10020 


240 


10080 


126 


10R90 


81 


10100 


190 


101 10 


93 


10120 


193 


18130 


lit 


10140 


69 


10158 


69 


10160 


16 


10170 


252 


10188 


142 


10190 


142 


10200 


42 


10210 


242 


10220 


25L 


10230 


255 


10240 


2 


10250 


4 


10260 


6 


10278 


8 


10280 


9 


10290 


7 


10300 


14 


10310 


? 


10320 


255 


10330 


111 


10340 


1 1 


10350 


17 


10360 


1 17 


10378 


125 
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/ tre dimensioner 



Skal man vove sig ud I grafiske afbild- 
ninger af funklion er , er det godt (erst al 
stkre sig nogle maskinkodeprogram- 
mer. der kan foretage de mange be- 
regninger. som er nodvendige - ikke 
mindsi hvis man arbejder I ha|opl0s* 
ning. 

Men pa PLUS/4 og C-1 6 computer- 
ne. er der indbygget en reekke rimeligt 
Jiurlige grafiske kommandoer, der gor 
det muligt al arbejde i Basic, selv om 
mfllel er 30 afbildninger af funktioner. 
Dette title program kan selvfoigelig ud- 
bygges pa flere mader. Men det giver 
gode muligheder for at arbejde med 
funktioners afbildninger. 

Der er tre former for afbildning mu- 
lig. Dels den sasdvanlige retvinklede, 
som de f teste mSske kan h uske fra ma- 
lematlktimernes terpen. En sadan af- 
bildning er ogsa" mulig at udfere manu- 



elt Men her er tempoet skruet op, og 
man far desuden nnulighed for al give 
forskellige parametre p3 koordinatsy- 
stemet og med hensyn til antallet af 
beregnede punkier og dermed over- 
skueligheden af det feerdige produtct. 

Den anden form for afbildning er 
den sakaldte poleere afbildning, hvor 
man arbejder med radius og vinkler. 
Her er der ofte brug for at lave orn pa" x- 
og y-aksernes mSlesioksforhold, s&af- 
bildningen fremtrasder tydeligere (for- 
stcrrel) pr0v 3 eller 4 tit den viste funkti- 
on (IfnielOOO). 

Og endelig er der den mest intereg- 
same afbilding -den tredimensionale. 
Det vil le vaere uhyre svssrt at gennern- 
fere en sSdan afbildning manuelt. Der 
er mange bereginger for hvert enkelt 
punkt . Og der skal mange punktertil en 
afbildning. Regn med halvanden-to ti- 



mer ved en ikke alt for komplicerel 
funktion, som f.eks. den i finie 1000. 
Men sa er resultatet ogsa imponeren- 
de og fasinerende. 

Den 3-dimensionale afbildning gar 
det. at den drejer emnet (funktionen) 
om y-aksen, altsa" den lodrette. Den 
»rumlige« akse, altsa z-aksen . gar der- 
for flnd« i billedet. 

Det er tilradeligt at bruge de angiv- 
ne normal parametre i starten . VII man 
lave om pa den horisoniale placering 
gares det i linle 5, hvor der ssettes en 
raakke standardvserdier lor 3D afbild- 
ningen. Variablen E er den horisontale 
forskydning. Vil man have sit billede 
forskudt mod h0j re sasttesden til f.eks. 
200. (den er nu 160). 

Dette program vil ievrkjt blive over- 
sat til Simon basic i forbindelse med 
RUNs serie om emnet 



TIL C16: 

3D PLOTNING 



0 GOTO 1088 

1 X=BB*H/B*E:Y=rjfj-H/fl+F:Xl ^INTC .B5*X J:Y1 
=INTC .SxCR-V J): 1FY<0ORY>199THEN"RETURN 

2 PRINT I .XI .Yl:PRlHT0.Xt .Y1+1TOXI ,199: RE 
TURN 

3 PRINr ,, tCRSRxOOUN*2.)UERriKflLE MftALESTOK 

ER 40 TIL 40 TYPJSK 20 ";:INPU 

TNI 

I PRINT "LCRSRxDOUlNJ^ERriKftl.E PI. ACER I NG - 
30 T J L 150 TYPJ5K 90 ";=INPUTN? 

5 fi = Ht:B=3?.?5:C=Nl:D=.B327:E = 160:F=N2:e 
= 1 93 

6 UftIT?:Cl-R:LJST0.2:LISTi.t 

7 F0RH = -flT0flSTEPB:flfl = IN7C ,5tS9R(fl*fl-H:*H J 

y. FOR8B=-nro^r»: cc=sqrcbb»bb*h*h j*d 

8 Dl -FNRtCC J:DD;D!XC:G0SLI81:NEXT:NEXT:U 
ST1000:ENU 

9 GO 109 

10 E-100»rj:F = 160fC 

II PRINT I ,F .0 TO F.199:PR1NT1 .0.E TO 319 
.E 

12 K0RXR=rr0319STEP19*SliPRINTl.XR.E-I T 
O XR .£+ 1 : NEXT 

13 FnRxL=FTO0STEP-19*Sl:PRINTl,XL,E-l TO 

XL , E ' 1 : NEXT 

11 rr)RYO=EI0199STEP15«S2:PRIMTl ,F-1 ,YD T 
O F+l ,YO:NEXT 

15 FQRYU=ET08STEP-15*S7:PRINTi ,F-1 ,YU TO 

F+l , YU : NEX T 
15 FFPL =1 THEN25 

17 REM F0L.fR FLU I NING 

18 RU = L SHIFT/t3/lB0:FORG=0Tn360STEPlK:T = 
GxRP 

59 X=FMR(I ULOSCT):V-FNRCT JxSJNCT J:XX=Xx 

C13*S1 )+F:YYt-Y*f l3*S2)tE 
?n JFXX<0(1RXX>319TMEN23 

21 IFYY <0ORXK.>1 93THEN23 

22 PRINT1 .XX.YY 




7? NEXT 

21 L 1ST100B:ENU 

5>3 PEM RttUlNKLEUE PLOTNING 

Tfl F iiRlVHTrni9STEPJK:X = CG-F J/'C l9*Sl ):Y = F 

NRLX ):YY^E-CYxil»*Ji2j:irYy<0ORYY>l99rH 

EN2B 
77 PRINT l ,G.YY 
29 NEXT 

79 1. 1ST 1000: END 

1000 DLF FNRCH )-CG5£G )+COSL2*Q )+C0SC5*G J 
1 0P7 PR3 U I "l CLR/HOTIE J L CRSR/D0WN J GRflF 1 SK 

FRENSTILLINC; OF FUNKT J ONER DEF 

INURE T I L1NJE 1000" 
1010 PRINT"LCRSR/130UH»2J *2J RETVINKLEDE 

KOORDINPITER" 
107H PRJNT"ICRSR/'D0WH^Z3 »2J P0L4R-KO0PD 

INflTER" 

1070 PRINT 'tCRSR/00UN>7J >2J 30 FREtfSTIL 
LING ' 

1010 PRINTS CRSR/UOWN] UiLG ET Tfl 

L";:INPUTPL 
1050 IFPL =3THEN3 

1060 PRINT"CCRSRy[iOUN*73FUNKTIONENS STIG 

NINGSGRflDs"! : INPUT IK 
1070 PR INT C CRSR/OOWNJFflKTORER Pfl* X-ftKS 

EN:"::INPUTS1 
10f<0 PR INT "' I CR5R/-D0UN J F PKTORER PAA Y-AKS 

tN:";- Inputs? 

IHJPl PPUIT'-eCRSR/'DOUNJSKnL UDGPNGSPUNKT E 
T SKUBBES TIL UENSTRE C-130 3 ELLER 
H0JRE CHflX 130 3"; 

I 100 1NPUTC 

1110 PRINT [ CRSR^OOUlN JSKflL UUGftNGSPUNKTE 
T SKUBBES OP C -90 1 ELLER NED [MA 
X 90)-;: 1NPUTD 

117P» U1AIT7:CLR:L IST«.7:LIST1 ,1:GOTO10 
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TIL COMMODORE 64: 
DOBBELT INDEX 



I REM X x x DOBBELT INOEX-UDSKRIFT 

3/9-1981 SJflRNE U. JENSEN * x * 
! 0 PRINT '[ CLR^HOME K YEL ] " : OPEN 1 ,4: PRINT o 

I .CHRtt 153; ;CLOSF_l :REM R 

ESET PR INI ER 
20 P0KE788.52:P0KE732.193:P0KF46.PEEKC46 

H+20:CLR :REM FLYT P01NTERE 

30 PRINTCHRtl M i;CHRt(8 ): POKE53280 .9: POK 

E537B1 ,3 :REM SK( RMFpiRUER 

40 PRIN TlftBt 9 rc CRSR/OOWNX53C SHIFT/03C SH 

IH/OK SHIFTS*?] [ Sf I IFTxEDC SHIFTS K S 

HIFT/T3 [SHlFT/IICSHIFTytHL SHIFT/OK S 
HlFT /EJt SHIFTS J -t SHIFT /UK SHIFTxO][ SHIF 
T/SnSHIFTyKJESMIFT^Ji: SHIFT/IK SHIFTS J 
t SHIFT/n 

S0 PRIHTTflBt 19 )"CCRSR^DOUM>41AF":PRINTTA 
BC17 l"CCRSR/OOUNx4U SHJF7 /B JJARNE CSH 
IFTA>3. [ SHIF T/J lENStN 

60 FORI =ITU3000: NEXT --PRINT "CCLRyHOME]" 

100 nirfNfl*ttS8.23 

1 10 IS = 256* 1PEEKC 46 3-19 K POKE 1 5, 0 

120 CLi = "[CLRxHOriEK CRSRvOOUN*I2J":M:* = - 

130 PRINTCLi: CSMIFTAJJIL DU HAVE Sf 
ART-PflpiR*; :GOSUB900 : REM. START 
PflPIR 

110 HN = 1:PRINTCL t; : JFfH 1THEN160 
150 OPEN1 .-t:FURI = lT04t:PRlNT«l:NEXT: CLOS 
£1 

160 PRIN1T6BC6J"ESHIFT/E3R DISK NR . " ; DN ; 

"KL OR";;nQSUB900 
170 PRINTCLi: : IFfi<1ftNnON=lTMEN580 
173 IffKUHFNfll t?)=-|:GOTO500 
l«0 PR I HI tH0riEJCL0G0^2JPCSHIFT/O]44 ,B:G 

ISMJFT^JJ-300- 

:REM DVNftPlISK KEY- 
190 P0KE631 ,19tPOKE637, 13:P0KF.199 ,2 

: REM KEYBOPRD-RUN 
20P aPtH15.fl,l5. , 'r , :PMKE44.PEEK'C463- 19;L 

W"i",R : REM FLYT BASIC- 

300 in = TS:7l.ra:PPIMT"CCI..R/l-rtlME3C VEL3":IN 

PUT* 1 5 .EN. EM* .ET.ES : REM 

STP-RFPIIINTEP 
305 CI OSH1S: IFEN = 0IMEN3I0 

: REM OISK-FEJLKPNft 

. W j 

305 PRINTM*; CSHIFT/DJ1SKFEJL NR.~;EN:PR 

1 NT : PR 1 N I'M*; EM* : PR I NT i GOTO 1 60 
3ifl Nfll*STR*CPEEKC IP1+3 3+256*PEEKC Iflt 1 J 
• REM JNDLCS JNDEX 

320 10=1R'5 

330 N-PEEKl IP 3; IFN=0THEN35f) 

340 HO*=hW*-»CHR*CN3: \ f*= ]P* l :GOTO330 

irifl Nf>4t'lL,lJN3=LEFT*CNn*,28);PRINITABC5 3 

HP* : REM 5KFRM-PRINT 

3m lFPfcliKClfrM 30RPEEKC lflt23THENTLsTL+ls 

GOT 03 1 e 

3GS Hf**-lB.nM3-NASC0,DN)t" "+CHRK115 1 
370 PLCDM3 = TL = IFON = I THE HON =7: PRINT: PRINT 
.•rajTOlHB ■ : REM HENT DISK NR. 

>. 7: ' 

S0B JFflLCl 3>=fiLC?3TMEMH=FiLtl 3 
510 iFPLtl 3<m.C73TMEN"H=flU23 

:REM H^ANTAL I IMIE 

R 

^70 nir^M-LlTHE>JGO'JUB700 • 

53fl nri-.fll .i:FORI=0TOH:N*=M*iHfi*tI , l 3 

I REM PRJNTERUOSKRI 

. n 

510 H 1 >rtLi 1 )THENN*-Mi+M**Mi+r1*+n* 
550 JH <=PI_f2 3THENN*=N* + M*r ' t-NR*C I .23 
555 IN =QerHENFORN:lT06:PRIHT«l:LT=LT+l: 
NEXT 

360 PPJ NIB I .N»: NEXT: PRINT" t:PRINT«l 



570 PRINT«1:CL0SEULT=LT*H*4 
575 JF1_T>68THENLT =LT-?2: 6OT0575 

' REM JUST. L INI ETC LL 

ER 

560 PRIHTCL*; " CSH1FTAJJ1L DU HP.UE NY 
SIDE PPPIR';:GQSU8900 

10 PRINTCL *; : IFA>1 THENGOSUB700 
' 600 PRINT" CSHIFTyUJIL DU UDSKRIUE PI 

ERE " : : GOSUB909 
610 PRINTCL*; : I Fp. > IT HE HON ^ 1 : GOTO 1 60 

620 GDSUB700 

630 PHINTCL*;" CSHIFT/U3IL OU HAUE SL 

UT -PAPIR" I : 6OSUB900 
MW PRINT II *: lfrt<ITHENB0B 
650 0PEN1 .4: FORI - 1TD3 1 : PR INT» 1 : NEXT: CLOS 

E t : GO rOBftB : REM SLUT-PAP1R 

700 1FLT=0TH6NRETURN 

:REM NY SIDE CSUB3 

710 0PEN1 .4 

720 PRINI*l:LT=LTtl: IFLT <72TMEN720 

730 L1 =0: CLOSE 1 : RETURN 

800 PrtlNTCL*5PCM5J"TftK FOR NU." 

' REM BFSLUTNING 
R10 POKE46 .PEEK C 16 3-20: CLR 
070 PR I NTCHRK 9 ): P0KE797 ,71: POKE70B ,19: E 
NI3 

M0 PPIHI" ? CJ/H J-:rOKEI98.,0 

: REM J/l/NEJ tSUB.) 

via Ceteris iF6i s ""THeM9t0 

IFG*- 'M" THENft-0: RETURN 
930 lFC»k= ' J "THENn=?:RFTURN 
aiia lFPteKCl973=631HENBR« 
9L>0 GflTlllDlB 




KONfROLSUM FOR 0''<BBE L T INDEX 



I 


713 


10 


187 


20 


1 93 


30 


133 


40 


66 


50 


255 


m 


122 


100 


176 


110 


67 


I7H 


137 


13R 


88 


110 


94 


150 


231 


150 


51 


370 


217 


175 


77 


1B0 


242 


190 


208 


208 


91 


300 


66 


305 


1 00 


30H 


70 


310 


166 


320 


165 


330 


709 


310 


97 


350 


24 


3(4' 


247 


-ins 


1 


370 


220 


500 


199 


510 


113 


520 


4 


530 


91 


510 


60 


550 


4 


555 


735 


560 


4l 


570 


209 


S75 


71 


5B0 


214 


590 


58 


600 


50 


610 


779 


620 


3B 


630 


95 


640 


1 17 


650 


30 


708 


50 




18 


720 


145 


^30 


85 


800 


133 


BI0 


141 




181 


900 


222 


910 


1 15 


370 


204 


330 


70? 


310 


153 


350 


35 
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STJERKE Tl 

Netop NU kan Du kobe 
de mest spaendende 
og populaere computerspil 
til meget billige priser . 

Nyheder til 
COMMODORE 64 

Besinr. I, PSI WARRIOR/BEYOND, for 179,- NU 152,00 

Bestnr. 2, GUN DOGS/HILL MACGIBBON . for 1 09.- NU 92,50 

Best-nt. 3, JINN GENIE /MICROMEGA, tor 160.- NU 136,00 

Best.nr. 4, FORT APOCALYPSE /SYN SOFT, for 179,- NU 152,00 

Bestnr. 5 ( DREBl£/SyNSOFT,forl79- NU 152,00 

Bestnr. 6, SUICIDE EXPRESS/GREMLIN, for 142,- NU119.85 

Bestnr. 7, BRUCE LEE/DATASOFT, for 179,- NU 152,00 

Bestnr. 8, SPITFIRE ACE/MICRO PROSE, for 179.- NU 152,00 

Bestnr. 9, EUREKA/DO MARK, far269v NU 228,50 

Best.ru. 10. SELECT I (12spil)/CPR. fro 223,- NU 189,50 



Nyheder til 
ZX SPECTRUM 




. NU 189,50 



Bestnr. 1 I, SELECT l(12spil)/CPR. for 223,- 

Bestnr. 12, TRAVEL WITH TRASHMAN/ 

NEW GEN, for 109,- ,„ „...NU 92,50 

Bestnr. 13JASPERyMICROMEGA,fiBrl42.- NU 119,85 

Best .nr. 1 4. EUREKA/DOMARK, far 269.- NU 228,50 

Bestnr. 15. VALKYRIE 17/RJC. for 179.- NU 152,00 

Best. nr. 16. BATTLECARS/GAMES 

WORKSHOP, for 142,- NU 119,85 

Best.nr. 17, TK RA NOG /GARGOYLE , tor 179,- NU 152 ,00 

Bestnr. 18, D-DAY/GAMES WORKSHOP, for 109.- NU 92,50 

Best.nr. 19. JUMP CHALLENGE/MARTECH. for 142,- NU 119,85 

Best.nr. 20, UNDER WURLDE/ULTTMATE. for 179,- NU 152,00 

Best.nr. 2 1, HAVOC/DYNAV1SION, for 142,- NU 119,85 

SPECTRUM SPAR 1.400, 

ZX SPECTRUM 48K+datarecorder+for 1.000 kr. 
software! Et meget staerkt tilbud. Du sparer 1.400 kr. 
Best nr 22 RUN to. 2.997,- 

ZX SPECTRUM 16K+datarecorder samt for 800,- kr. 
software. Du sparer 1 .200 kr. 

Best nr 23 KUN fa. 2.197,- 



JOYSTICK Best.nr. 27 

til bl.a. COMMODORE, SPECTRUM, VIC 20, 
AMSTRAD m.fl. Tradkts betjenirtg (infrared). 

TTLBRUDSPRIS 598, 

SPAR YDERLIGERE 60,- kr. i dec ember 
- medbring annoncen el. send kuponen. 

DATARECORDER 

med bandtaeller. Best.nr. 24 KUN kr. 398,- 

PRINTERE med centronic interface. 

Shinwa CP80. Best.nr. 25 kr. 3.795,- 

Brother HR 1 5. Best.nr. 26 kr. 7.985,- 9 

Inch kabler. § 

K0B PR. POSTORDRE 
nemt og ligetil! 

Send kuponen i dag. 

(Kin 

I JA. 



KUPON: 

JA, jeg bestiller hermed: 



Rekvirer GRATIS A 
softwarekatalog W 



TECHNOMATIC 



riQTQ 
Ul III I 



Holbergsgade 19. 1057 Kobenhavn K. Telefon 01-13 88 35 



stlc. nr. 


stk. nr. 


stk. nr 


stk. nr. 


stk. nr. 


stk. nr. 


stk. nr 


stk. nr 


stk. nr. 



1 sik. grafts softwarekatalog. 



Navn: 

Adresse: . 
Postnr.: _ 



.By:. 



Telefonnr.: . 



Kuponen sendes til: 
TECHNOMATIC 

Holbergsgade 19. 1057 Kbh. K. tlf. 01-13 88 35 



For Commodore 64 




Privatregnskab - del 2 



Interessen for RUN's privatregnskab 
har vasret formidabel. Folk har bom- 
barderet os med spargsmal om. hvor- 
nar resten kommer, og om del evt. 
var muligt at kebe hele program met. 
Vi har fSet megen ros og mange gode 
rad. Vi er glade tor begge dele. Deri- 
mod var den gamte redacteur ved at 
blive lynchet, da 2. del ikke kom med I 
nr. 2. 

Mange leesere har haft problemer 
med at load'e og save filerne. Del 
skytdes, at man indtil videre skal gare 
det ad to omgange. TEKSTERNE 
gemmes/loades i billede 10/11 i me- 
nuen. Der er saiedes (stadig indlil vi- 
dere) TO filer, der skal indlceses eller 
gemmes. 

Her i del 2 har vi mulighed for at fa 



opsummeret budgettallene og fa dem 
printet ud pa stermen. Programme! 
beregner et overskud/underskud for 
hver maned og overfarer det til nasste 
maned. 

Dette foregar i billede 3 i hovedme- 
nuen, der lederden til en undermenu. 
Her skal man opsummere data, inden 
man begynder at skrive dem ud pa 
skeermen. Pa skaarmen kan de heref- 
ler vises maned for maned sammen 
med en arstotal. Man »bladrer« frem 
eller tilbage i manederne ved at tryk- 
ke pa " + " eller "-" tasterne. VII man 
tilbage til undermenuen, trykker man 
pa tasten med pilen (opad). 

Har man en saldo fra sidste ar, kan 
man iaagge den ind i variablen 
BU(0.2) I linie 14310. 



Som svar pa de mange spargsmal 
om evt. keb af hele programmet. 
kommer vi nok til at baje os. idet vi 
palaanker at frlgive hele programmet 
fra januar. Laaserne vil derefter kunne 
kobe det enten pa band eller pa di- 
skette. Programmet vil blive leveret i 
to versioner. En almindetig BASIC- 
version, man kan rette i efter eget be- 
hov og en »comptleretf version, der 
k0rer langt hurtigere, men som til 
gengasld tkke kan rettes. 

For god ordens skyld skal naevnes. 
at man setvfelgelfg indlaeser del 1 
inden man begynder at indlaste del 2 
Ellers fortsa3tter programmet i RUN 
nr. 1 og 2 1985. 

God fomsjelse. 



RUN Amok 



Under denne overskrift bringer vi reitelser og korrekti- 
oner til fejl. der matte opsta i RUN. 

I RUN nr. 2 skal folgende rettelser foretages: 



I GRAFIK (Simons Basic) side 13 skal falgende linie 
rettes: 

60921 TEXT 215 . 150 . GRAFIK" ,1 ,.3.16 



I TIPSPROGRAM 1 side 42-43 skal folgende I inter til- 
tsjes: 

60000 REM PRINTP0S1T10N 
60010 PR INT "[ HOME 1" : 

50920 tf V<>0 THEN POKE 214 ,Y-1 i PRINT 
60030 POKE 21 1 .X 
600-?0 RETURN 



I S0SLAG side 55 skal ffllgende rettes: 

t 120 Y = I33: XI =29: Yl =160* INTCRNDC 1 3x60 ):P 
0KEU.X:P0KEU+1 . Y: D=l ! POKEU+2 .XI : POK 
EU+3.Y1 
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PRIVATREGNSKAB - DEL 2 

11080 REftXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

11061 REM PRINT BUDGET - UNOERMENU 
140B3 REWxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
11010 PR I NT" r CLR/H0t1Er':X = l2: Y=3:GOSUB20 
000: PR! NT f RUS/ON) PRINT BUDGETTfiL 



11020 

1 4330 

11010 
11015 

11050 
1 4068 

11070 

11O80 
11090 
11110 
11120 
11200 
11281 
1^203 
11205 

11210 

11228 
11230 
11240 
11250 
1 1260 
11220 

11290 
11290 
11300 

14310 

1 4320 
1 1330 

11340 
11100 
11101 
11103 
11105 
11110 

11411 
11112 
11113 
11120 

11130 

11140 

11150 
11155 

11160 
11170 

11190 

U190 



X =8 : Y - 7 : GOSUB20000 : PR INT* I OPSUMME 
RING AF DATA" 

X*8: Yt9:GOSUB20080:PRINT"'2 PRINT P 
P.A SKAERfT 

X=8: YM l:GOSUB20000: PR]NT"3" 

X^8: YM3:GOSUB20000: PRINT' 1 HOUEDM 

ENU 

X=0: Y=l7:GOSUB2B000: PRINTSTREG* 

X = l 3: Y=22: GOSUB20000: PR INT "C RUS/ON 

3 "INDTAST 1-1 CRUS/OFF]'' 

X=l7= Y=?2:GOSU820080:GETQ*: IFQ*="" 

THEM I 10 70 

fFOt="i THENH200 

IFO*= 2 "THEN14108 

IFO* = 1 THEN29888 

eflT0l4Cf?8 

Hi'Mxxxxx XXXXXXXXV.XXXXXXXXXXXXXXXX 

REM OPSUMMFRING AF DATA 

RE^XXX* XXXXXXAXXXXXXXXXXXXXXXXXXX 

X = 1 3 : Y : 22 : GOSUB20880 : PR l NT T RUS/ON 
3 UENT I MINUT 

FDRY=0TOll :FORX-l0tO90STEPl0:BUCY, 
X)=0:FOR2 = ITO9 
BUCY\X)=8UCY.XitBUCY.Xt-Z) 
NEXTZ.X.Y 

FORXM0TO99:BUf l2.XJr0:FDRYr0TOU 

BUC12.X)=BUU2.X3+BUCY,X) 

NEXTY.X 

FORX-0TOl2:BUf X.100 3=0:FORY=20TO90 
SFEP10 

BUCX.l00l:BU(X.100)+BUCX.Y) 
NEXTY.X 

FDRY -0TO! 2 : BUt Y , I )=BUCY ,10 l-BUCY.l 
00): NEXT 

BUC0.21=0:REM QUERF0RT FRA SIDSTE 

OAR - RET TES EUT. 

BUC0.31=8UC0.1 )'BUC8.2) 

FORX = lTOt I :eUCX.2}=BU(X-l ,3):BUfX. 

33=BUCX.l J*BU(X.2):NEXT 

GOIO11000 

PSKXXXXXXXXXXXXXXXXTXXXXXXXXXXXXX 

REM PRINT BUDGE TOUERS I G T SKAERM 
RZnxxxxtxx-xxxxxxxtxxxxxxxxxxxxxxx 

r=8 

PRINT - rCLR/HQI1E] :IFQ*="+ THEN I =1 1 
L 

IFQt-- "TIIENI=I-L 

IFI>11THENI=0 

IFIC0THENJ=II 

X ; 0: Y - 1 : GOSUB20000: PRINT [RUS/ON! 
BUDGETOUERSIGT 

X =22 : Y= I : GOSU820000: PR I NT t RUS/ON 3 

Motcn 

X--32: Y= 1 : GOSUB20000: PRINT 'T RUS/ON] 
TOTAL H 

X=0: Y=1:GOSUB20000:PRINTTE4C 10 ) 
X=20:Y=5:GOSUe20Q00: PR I NT" 



FORI I =20TO90STEP 1 0 

X=B: Y = ( 1 1-20 )yl0*8:GOSUB20000:PRJN 
TTE4CII ) 
NEXTI I 

X=20: Y = 16: GO5UB28080:PRINT * 



11300 X-8: : Y=l7: GOSUB20000:PRINT UDGIFTE 

R TOTAL*' 

11510 X-0: y = 18:GOSUB28000: PRINT" I NOT . " 
I 1S20 X-20: Yr ig: GOSUB2B000: PRINT" 

115:10 x-0; Y -?i :ROSUB20000: PRINT "OUERF0RT 

14510 X--20: Y-22: GOSUB20008 : PR ! NT " 



x-0: Y-23:GOSUB?0000:PRINT AT OUFRF 
8RC 

11590 GOSUB14780 

14600 GFTfJt: |FT)S - ' ' THE Nl 1600 

11010 ifq* - ' * 'ORotT - inrmni0 

M015 IFQt- r'*THENH000 
11620 GOIO14B0B 

1 1700 Rtuxxxxxxxxxxxxx kxxxxxxxxxxxxxxxx 

11701 REM PRINT BUDGET TAL PAtt SKAERM 
11703 RtnxxxxxxxxxxxxxxxxxxxxTXxxxxxxxx 

1 471 0 BE =BUC 1 . 1 0 ): GO9UB28500: X = 22+Hpl: Y =1 
: GOSl IB20000: PR IN TBUt 1 . 10 ) 

14720 BE =BUC 12,10): GOSUB20500; X =32+MM: Y= 
4: GOSUB 20000: PR I N TBUt 1 2 . 10 ) 

14730 FORII=20rO90SrCP10 

1 1710 BE -BUt !.!!): GOSUB20500: X=22+HM: Y = C 
M-20 )/18+8:GOSUB28800:PR[NTBUC I . I 

n 

11750 BE^BUC 12 . 1 1 ): GOSUB20580: X=32+HM: Y= 
f 1 1-20 )/I0«8: GDSUB20000: PRINTBUC 12 
.113 

14760 NEXT 

11761 RE "BUT I . 180 ): GOSUB20500: X -22+HM: Y = 
17: GOSUB2B000 :PR IN TBUT I ,1003 

11762 BE=BUC12. 100 ) : GOSUB20500: X=32+HM : Y 
=1?: GOSUB20000: PR IN TBUC 12 . 1 00 7 

11763 BE -BUT 1 , 10 ): GOSUB20590 : X=22+Hff: Y = 1 
8: GOSUB20800: PR I N TBU( 1.10 3 

14761 BF "BUt 12 , L0 ): GOSU020500: X=32+H(1: Y = 
18:GOSUB20000:PRINTBUf 12. 10) 

11778 BE -BUTE. I .1: GOSUB20500: X = 22+Hfl: Y = 20 

: GOSUB28800: PRINTBUC I .1 ) 
11780 BE:BUf L2,l ): 6OSUB28500: X=32+HM: Y =2 

0:GOSUB20000:PRINTBUri2.l D 
11790 BE -BUT I .2 3: GOSUB28500: X*22+Hfl: Y-21 

: GOSUB200BB: PRIN TBUC I .2 ) 
H800 BE '-BU( l .3 3!GOSUB20500:X=22+HM! Y = 23 

: GOSUB20000: PRIN TBU C I .3 3 
11BI0 RETURN 

20510 IFAB9CQE K10THEN HM = 5: RE TURN 
20520 IFABSCBE )£100 THEN MM =4: RE TURN 
20530 IFABSCBE K 1080 THEN HM~3: RETURN 
20540 IFABSCBE K10000THFN HM =2: RETURN 
20550 IFABSCBE KI00000THEN Hn=l : RETURN 
20560 IFABSCBE 3<1 000000 THEN HP1=0:RETURN 
29088 X = 2: Y=9: GOSUB20888: PRINT " 3) PR J NT 
AF BUDGET I AL 

2521 8 ONQ«G0 TO 1 1 000 . 1 2000 . 1 4000 29 

300 .29300.29999 



NTROLSUM FOR PR I UATREGNSKAB DEL 


2 


11080 


123 


11001 


55 


11003 


123 


140I0 


250 


11020 


22 


L1030 


68 


11010 


236 


14015 


186 


11050 


28 


l 4068 


148 


11078 


2-17 


E4090 


197 


11090 


200 


11110 


201 


14120 


133 


11200 


123 


11201 


230 


1 4203 


123 


11205 


1 16 


14210 


tei 


11220 


175 


11230 


229 


1 1710 


233 


14250 


191 


11260 


95 


11270 


26 


11280 


27 


I 4290 


95 


1 1380 


128 


11310 


243 


H320 


190 


11330 


243 


11340 


126 


I 4400 


123 


11101 


109 


11403 


123 


14195 


13 


14110 


115 


11111 


231 


l 44! 2 


185 


1111 3 


187 


11120 


0 


14130 


I! 


11410 


139 


14450 


174 


14155 




1 1160 


62 


14470 


139 


I 4480 


20 


I 1490 


63 


14500 


239 


H5I0 


21 


I 4528 


66 


14538 


10 


11510 


68 ■ 


11550 


178 


11538 


137 


11608 


232 


11618 


10 


146L5 


240 


11628 


132 


14700 


123 


1470! 


205 


11703 


123 


11718 


95 


14728 


148 


1 1738 


62 


14740 


109 


14758 


162 


11760 


138 


14761 


213 


14702 


40 


11763 


148 


14764 


201 


14770 


45 


11780 


98 


14790 


18 


14800 


52 


11810 


142 


20510 


56 


20520 


103 


28530 


150 


2054 0 


I 97 


28550 


214 


20560 


35 


298B0 


211 


292 10 


96 
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HVEM GI'R DIG FRE 




WENS SOFTWARE? 




Commodore! 

Biliedet viser bare et lille udpluk al 
programmer til Commodore 64. ver- 
dens mest populffire hjemme- 
computer. 

Commodore er faktisk del 
computerftrma i verden, tier har 
udviklet flest programmer over- 
hovedet, ca. 2.000 ialt- forelobig! 

Irealiteten findesder et 
program lil enhver opgave, du kan 
tsenke dig - plus en hel del andre. 
Og der kommer stadig nye til - der 
star Commodore pa fremtidens 
soitware. 



Folg med tiden 



Commodore C-l6og PLUS/4 harnog- 
le meget gode gratlske kommandoer, 
som falgende li lie program gar brugaf. 
Isser kommandoen CIRCLE er impo- 
nerende hurtig. Og ligesom DRAW 
rummer den et ngesten ubegrsenset 
ania! variationer. 

»Ur C-16« kan bruges pa bade C-1 6 
og PLUS/4 maskinerne ( nar de sidst- 
naevnte kommer pa markedet, for- 
menitig i december. 

Programmel er el lille forsog, der 
samtidig skaf lllustrere brugen af no- 
gen af de »nye« Commodore komman- 
doer. Det viser en ursktve, hvor viser- 
ne giver den relativt prgBCise lid. Rela- 
tivt, fordi kommandoen Tl$ ikke i sig 
selver 100 pel. prascis. 

Og sa til nogle bemaerkninger om 
selve programme!. Lime 1 er en subru- 
tine, der udregner koordinaterne A,B 
(or DRAWs endepunkter. I linie 1 0 star- 
les uret og i 20 vsefges skasrmopias- 
ntng og farver pa baggrund og for- 
grund. I linie 25 indsasttesteksten. Her 
kan De indssette Deres egen teksl i 
CHAR kommandoen. Den kan forav- 
rigt bade bruges i hej- og lavoplasning 
og er altsa. en slags PRINT AT kom- 
mando. 

Nseste problem kom, da jeg skulle 




finde en made at faanbragtog define- 
ret tallene pa urskiven. CHAR kom- 
mandoen arbejder kun med en preci- 
sion pa 40 x 25 linier. sa den mulighea 
blev hurtigt torkastet. 

I stedet valgle jeg al bruge den i 
Commodore sammenhseng helt nye 
SSHAPE/GSHAPE. Den abner mulig- 
hed for at optage en del af ska?rmbil le- 
det i en slreng og sa fl/tte denne infor- 
mation til en ny position. 

Strengen kan iavrigt indeholde mak- 
simalt 32 x 49 punkter (hajopl&sning). 
Men det er mere end en sprite, som 
den kendes fra C-64'eren Den opia- 
sesi21 x24punkler. 

Ved at bruge XOR muligheden un- 
der genanbringelsen af figuren 
(GSHAPE CH$, A. B, 4) er det muligt 
samtidig at have bade den »gamle« 
skasrrninformation og den nye (den fra 
CHS) pa samme skaarmposition. Og 
endnu bedre - men ikke brugt i delte 
tilfselde - nar man igen fjerner CHS's 
information, er den »gamie« informati- 
on derstadig! 

Derudover vil jeg kun lige bemaarke. 
at DRAW kommandoen bruges bade 
til at tegne punkterede linier og figure 
med. Og slette dem. Henholdsvis 
DRAW 1 og DRAW 0. 



TIL C16: UR C16 

1 GO 1010 

2 fl=XPl »R»COSC C270*D VRR ]: B - ABSC VN+R*S INC 
t?70+OlyRR)J: RETURN 

10 [NPUT "C CLR/HOME ] KLOKKEN I I TMMSS '* ; T I 4 

20 UflITl:CLR:LI9T8.2:LISTl .1 

25 SAUEl , 1 .5. "C16 UR 

30 XMM60: Yr1=100:R=90:FL=0:l_ISTl .3 

10 PRINTl .xn.YM 

50 DEF1.XM.YM.R 

60 R=:80 

70 DEF1 .Xfl.YM. R: L1ST1 .3.4 

80 LOA13I .XM.15 

90 RR - \BQsf SHIFT st } 

100 CH =0:K=78:FORD=30TO360STEP30 

1 10 n- Vi7-R»C0SC C278tD VRR):B=ABSC98 + R*S 

lNrf270+DVRR)) 
1 20 CH rCH+ 1 : CHi =STR* ( CH 'j: SflUE 1 . 0 . 0 . CH* : P 

RlHTnCHi.0.0,24,24 
!30 POKECH4.P..B-4 
140 NEXrOiPOKECH*. 0.0. <1 
150 S*=RIGHT*tTIt.2):5=UflLrS*3 



100 nt-tHD*(TI*.3.2):ritUPlLmiJ 
170 Ht -LEF T*t ft* .23- H = UflL CH* ) 
190 EFn>30THENH^H>l 
190 1FM>13THENH=H-12 

210 R-60: D=6atS:B0SUBl: PRINTl .XII .YMTOA . B 
220 R*4S:U-6*ri:GOSUBl: PRINTl .xn.YMTOA.B 
230 R=33: n = 30»Hr G0SUB1 : PR I N T 1 .XM . YF1T0A ,B 
240 IFOrt-ri*THEN220 
250 DTi=TI* 

260 R^flB*. 0=6*S:G0SUB1 : PRINT0 .XII .YflTOfl.B 
270 Si-RIGHT*Cm.2):<?=UALCS-n 
280 R-B0: D-6*S;GOSU81 : PR I NT t ,XN .YtlTOA.B 
290 1FSOBTMEN240 

300 R=45: U=6*ri:G0SUBl: PRINTS .XM .YMTOA.B 
310 ttt=nlDi(Tli .3.23:M=UAL(r1*] 
320 R=45: D=6*f1: GOSUB1 : PRI NT1 .XM.YMTOfl.B 
330" IFMO0THFN240 

348 R=35: O=30XH:GOSUB1 : PR INT0 ,XM . YMTOP. ,8 

359 H*=LEFT«CTt*.2J:H=UALtH* ) 

360 IFl1>3eTHENH=H+i:DS=0S+l 
325 1FH>12THENH=H-12 

380 R = 35-" D=30*H: GOSUBl : PRINT 1 .XM , YMTOP. .B 
390 GOT024B 
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Micro A/erden har 18 S0stre 





Hei 



Stor hjemmedataudstilling i Forum 



I dagene 8.-1 1 . november stod Forum 
i KfiJbenhavn pagloende psele. Medllv 
og en stemning, der ikke star tilbage 
lor den, der hersker, nar seks-dages- 
lobene afvlkles i samme lokale, lab 
Danmarks hidtll sterste hjemmeda- 
taudstilling af stablen. 

23.000 mennesker - betydelig He- 
re end budgetteret - oplevede i lebet 
af de lire dage en sand heksekedel af 
fest, farver og underltge blip-blop ly- 
de At hjemmedatamateme for alvor 
har holdl deres indtog i danske hjem, 
Jon der ikke lasngere herske nogen 
1vivl om. 

Udstillingen afslorede desuden, at 
udbuddet af h)emmedatamater mere 
og mere koncentrerer sig om faarre 
og faarre masrker. 

I den aniedning kan man som 
Commodore-fan kun glsede sig over, 
at Commodore sa afgjort indtager en 
absolut farerstilling pa markedet 
Commodores stand i midten af haJlen 
var sa absolut den dominerende 
stand og de fleste af de ovrige udstil- 
lere var mere eller mandre leverandfl- 
rer af soft-eiler hardware til Commo- 
dore. 



Man kunne ogsa glaede sig over, at 
Commodores nye computere var 3a- 
get ud af giasmontrene og nu stod til 
fri afbenyttelse (or et publikum, der nu 
fik udlesning for en la?ngere nEeret 
spending. 

Ellers var del spillene, der var ud- 
stillingens dominerende faktor. Over- 
all kunne man prove de nyeste spil og 
flere steder var der ligefrem konkur- 
rencer om, hvem der kunne opna de 
hejeste point. CBS havde - foruden 
en stor stand - en »biograf« korende. 
hvor spillene blev prassenteret. Twi- 
lights stand harte r>l en af de mest be- 
sejgte, idet man ogsa her prassentere- 
de flere sserdeles interessanie spil. 

Vmterens store hits Indenfor corn- 
puterspillene hedder uden tvivl 
»Ghostbusters« og »Raid over Mo- 
scow". Begge spillene er anmeldt her 
i RUN og en sserdeies anbefalelses- 
vasrdlge. I det hele tagel er det impo- 
nerende at se, hvor avancerede spil- 
lene efterhanden er blevet. 

I den forbindelse kan man ogsa 
konstatere , at det ikke er Commodore 
selv, der er ferende pa det omrade. 



RUN var naturligvls ogsa repras- 
senteret og vi kunne glsede os over er 
sardeles stor Interesse pa savel los- 
salg som abonnementssiden. Fra den 
nagrliggende scene var der foruden 
underholdning ogsa daglig udtrsek- 
ning al gevinster fra savel Comrnodo- " 
re som RUN. 

Hovedgevinsten fra RUN - en 
Commodore 64 eller tilsvarende ud- 
styr lit samme blev vundet af: 

Einer Jacobsen 
Engstedet 35 
3500 Vaarlase 

Vi ensker til lykke med gevinslen. der 
er fremsendt. 

Den festlige udstilling fra Forum vil 
I avrigt blive vist I Arhus i begyndelsen 
af december. hvor vi fra RUN glasder 
os meget til at mode nogle af vore 
jyske laasere. 



Julekonkurrence 



Hej! Er der nogen her, der har set et 
spagelse'? ■ 

SSdan starter brugervejledningen 
til det nye spil »GHOSTBUSTERS« og 
RUN lager i sarnarbejde med CBS 
traden op til en Nile julespog, idet vi 
rundl omkring i bladet har anbragl del 
I Mie spegelse. vi r>ok skal komme til ai 
se mere til i den nsermeste tid. 

Kon og godl ! Taal hvor mange spe- 
gelser vi har anbragt i bladet og du 
ma gerne tage computeren til hjselp! 
Skriv tallet pa et aoenl brevkort og 
send det til: 



RUN Commodor-magasin 
Gl. Strand 50 
1202 Kebenhavn K 

Husk at maarke brevkortet »Julekon- 
kurrence«. 

vi usekker iod om 10 Ghostbu- 
sters-spil og ti andre kvalitetsspll. 

Hvis vi har dit brevkort, senest den 
19. december. er du med i lodtrask- 
nmgen, og er du fieldig. ligger spillei 
under julelraset den 24. december. 
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TIL COMMODORE 64: 
STJERNEKRIG 



1008 REmxxxzxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XX 

1010 REn STJERNEKRIG FOR C64 
1020 REM RUN COMMODORE -riAGflS IN 
1030 REftxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx 
xx 

3040 PRINT -[CLR/HOME]": P0KE214. 10: PRINT: 

"PINT TAB C 13 ) [RUSX)N]STJERNEKRIGt RU 

S/OFF 1 " : FOR J =1 T0999: NEXT 
1050 PQKE53281 . 11 : POKE53782 . 1 ?: POKE53293 

.13:Z=53270:POKE7,PEEK(2 30P-16 
10GB PaKE52.56:POKE56.58:CLR:P0KE5633l ,P 

EE.KC56334 ]AN025l:P0KEI .PEEKC1 3P.ND25 

3 

1070 IF PEEKt 14335JO601HENFORI=0TO511:P 
OKEI * 1 1336 .PEEK CI *- 53248 ) : NEXT 

1080 POKE! .PFFKf 1 )OR4 : POKE53280 .0:U=5324 
6 

1090 POKE56331 .PEEK t 56334 JOR1 : PQKE53272 . 

tPEFK f 53272 3AND240 3*14: POKE54296 ,0 
1 100 FOR J = 0TO7: POKE 14336+77x8+ J . 170: POKE 

14336+29*8+ J .85:REA0Q:P0KE14848+J ,Q 
1110 POKE!4336+2B*8+J .255: P0KE14336+31*8 

+J ,255-PEEK(H336i-46*8tJ ):NEXT 

1 120 Dr»Tn?55. 243 .243. 192.243.243.255.255 
1 1 38 FORJ=0TO 1 5: REflDQ; POKE 14856+ J .Q; NEXT 

:ClflTft754 ,25* . 252 . 240 . 232 . 1 56 . 235 . 24 
. C"""1'lf . -I[.r 

1 140 DOTftl 27, 127 .63.15.23.57.215 .239 
1150 0=55296- 1021: FOR J * 102 4 TO 1503: IFRNDC 

1 3>-9THENP0KEJ ,31 : POKEJ + D . 8: J = J+ 1 
1160 POKEJ ,28:P0KEJ+D.9:NEXT:Q*=-SCQRE" 
! 170 FOR J - 1 T05: POKE 1 023+ J , ASC Cf1ID*CQ* , J . 

1 3 J- M i POKE 1023+J+-D.0: NEXT: POKE 1 B29 

,58 

1190 FORJ --1029TO 1035: POKEJ +D.0: NEXT: NS=3 

: GOSLIB 1 970: SC=0: GOSUB2000 
1190 FORJ=1TO10:REOOQ:POKEQ-47,64:NEXT 
1200 DftTfll087.l030.1165.1712. 1251 .1290,1 

331 . 1 297 , 1371 .1413 
1710 FORJ = 1 TO 16 
1228 G=0 

1230 IFJ>5THEH1FJ/2 = INTCJ/^)THENF=F*40:G 

=40 
1210 REftDC 
1250 T = 1 ♦ J 

1260 FQRX=0TQ18-T:n=l3l1tJ*40+X:N = ]3<H-t-J 

X40+39-X 
1270 Q--fl;GOSUB1350;Q=N: 6OSUB1350 
1280 NEXTX 

1230 FORI-l364tjx40?Ol444i-J*40i-FSTEP40 
1 300 Q = I -T- 1 : GOSUBl 350: Q = I +T: GOSUBl 350 
1310 NEXT: i=I-40 

1320 FORH=I-T-I TOI-+T 

1330 Q=H: GOSUBl 350: Q=H-G: GOSUBl 350: NEXT: 

NEXT: GOTO1370 
1340 DATA32, 27. 29. 32. 27. 29. 29. 32. 32. 27, 2 

7.29,29.29.32.32 
1 350 I FQ <2024THENPOKE"Q . C : POKEQ+0 , 8 
1360 RETURN 

13>'0 1FPEEKC832)=33THEN1500 

13B0 FPRJ=0TO7:FORJ =0TO62: REflOQ : P0KE832+ 

Jx64+I ,Q: NEXT: NEXT 
1 390 DP)Tfl33 .0 .0 ,64 , 1 28 ,0 . 1 40 .64 ,0 . 1 58 .64 

. 0 .24 3 . 1 92 , 0 . 1 58 . 64 . 0 . 1 40 . 64 . 0 
3100 DftTP, 64.128.0.33.0.0.0.0.0,0.0.0.0. 

0.0.0.0.0.0.0.0 
1410 PPiTfl0. fl.0.0 .0.0. 0.0. 0.0. 0.0. 0.0. 0.0 
.0.0.0.0.0 

14 20 DPiTflB, 0.0. 0.0, 0.0. 0.0. 0.0. 0.0. 0.0.0 
.0,0.0.0 .0 

1430 DP)TA0.8.0.0.8.0.0.28.0.0.28.0.! ,255 
.192.3 .255 . 224 . 1 27 . 1 27 . 1 27 




1440 

1450 

1460 

1470 

148-0 

1430 

1500 

1510 

1520 
1530 
1540 
1550 

1560 

1570 
1580 
1590 

1600 
1610 
1620 
1630 

1640 

1650 

1660 

1670 
1680 
1690 
1700 



1710 
1720 

1730 

1740 

1750 

1760 

1770 

1780 
1790 
1800 
1610 

1820 

1830 
1840 
1850 

I860 
1670 

inae* 



1900 
1910 



DflrA30, 

0.0.0.0.0.0.0.0.0.0 
OnTftB, ]28 ,0,32 ,32. 0,0. 2. 0,1 0,1 28, 2, 
40 . 2 . 0 . 1 52 . 1 30 . 1 28 , 96 . 1 28 . 1 30 
Qrvrp.128, 150.136.0 ,1 .215,64.215 ,64 ,1 
2B, 125. 1 0.0. 20 .130,0.0.128.96.105.0 
DfiTflB. 128.178. 130.128.128.4! .0,64 ,6 
.0.64,10.2, 128 .128.8.2.0.8.0 
FOR J =15232T01 5296 : POKEJ .0: NEXT : FORJ 
s 15253T015273: READQ: POKEJ ,Q: NEXT 
DAT A0.1 12.0.0. 136 .0.1 ,36.0.1 ,1 16.0. 
1 .36,0.0.136.0.0.112.0 
U =53248: POKEU+2 I .0: POKE2040 .14: POKE 
U'39 . 1 : POKEU-28.0:POKEU+46 .0 
POKE2047. 230: POKEU+ 16.0: POKEU+23.0: 
POKEUi-29.0: FORJ = 1 106: POKE2040+ J .13 
POKEU-i 39' J . INT f RNDC 1 >*3 > S: NEXT 
TORJ =54272 1 054 299 : POKEJ .0: NEXT 
IFU053218THEN STOP 

X ? 1 60: POKEU , X: POKF.U* 1 . 200: POKEU+29 . 
l:P0KEUt-23, l:P0KFU+2l . 1 : LU = 1 : U =4: E = 
8 

POKE2047.238: 1 FPEEKC49172 DO206THEN 
GOSUBl 840 

POKE49!52.6:POKE49l53.6:POKEU+46.0 
SYS53000 

S -54272: POKESi 24 . 15:P0KES+5 . 1 : POKES 
*6/, 128: POKES' 4 ,129:PQKES+1 , 12 
A=0 

IF*>U+LU*3THEN21 10 

IF CPEEKC 5632 1 )ANO 1 6 ;=0THENGOSU82 1 60 
FnRJ = lT06: IFRNDC 1 XU-LU/20JQRXCJ K 
>0THEN1670 

POKE2040tJ .13: X(J jM80:Y[J j=120:A-A 
tl 

n-cf J IrRNDtl )*( 5+LU/2] -2-1^4 :POKEU+ 
39 + J . I NT [RNDl 1 )*3*0):RU )=U 
P0KEU+JX2.XEJ J:P0KEUtltJ«2.YCJ J:POK 
EU+21 .PEEKC U+2 1 30RC2TJ }:GOTO1680 
NEXT 

FORJ = 1T06: IFXU 3-0THENNEXT: GOTO1790 
IFVCJ 5*1 60ORRC J )=£THENI730 
POKEU+29, PEEk{U+29}0RC2tJ 3: POKEU+23 
.PEEKCU+-23 10RC 2tJ 3:RCJ )=E:H>:CJ J=I1*C 
J 3x2 

FORN =S+ 7T0S 1 1 3 : POKEN ,0: NEXT 
P0KES+24.15:PQKES+12 ,207: POKES* 13 .8 
:POKES+B.!0:PnKFStll ,33 
V CJ >=YU )*RCJ 1 = XC J 3=XCJ )+flx[J ) 
POKEUt J»2 ,Xf J 3 : POKEU* t +J*2 ,YC J 3 
IFYCJK222ONOPEEKC7040tJ )=13THEN178 
it|- .!|";n ' ' " v '" ■' ■ 

XCJ )=0:POKEUt21 ,PEEKCUt21 3ANDC255-2 
r 1 3 

Pf)KEUr29.PtEKCUt7«J inN0t255-2TJ ]:POK 

EO+23.PEEKCUt23inN0C255-2TJ J 

NEXT 

IF(PEEKCUi-30 JflNOl 3O1THEN1610 
POKEU+21 . 1 : POKES+ 1 1 .0 

POKES'l .4:F0RI =lTO10:POKES-t-24 , 15-ftB 
SC6- 1 )!F0Rj=BT07:P0KEU+39,J 
FORM = 1 TO 1 0: NEXT : NEXT : NEXT: POKES+24 . 
15:P0KFStl ,12 

nCISUB2030:K -PEEKCUt-30 D:GOTO1630 

J ^B: REAOI : I F T <999 TMENSTOP 

REfiOQ: IFO> = 0THENPOKEJ*-T.O: J=J+1:GDT 

0185B 

IFOO-99 THENGOTO1840 
RETURN 

IW r A49 1 72 . 206 . 0 . 1 92 . 173 .0 . 1 92 . 248 .3 
.76, 100.192 

nmni 73.1 .192. 141 .0.192.162,1 .254 ,3 
2.708.109.32.208.4 1 .255.233.253.49. 

9 

Dmn227.32,208 .222.32,208,222.32.20 
8 

DP.Tn232 . 224 t A , 208 .230 . 76 . 1 00 . 1 92 . - 1 
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1970 DflT*49252, 173,1 ,720,11 .4 ,208.15,173 
,0,206 

1330 00^233,105.48.8.173.0,208,233.4,14 
1 .0.708 

1940 DftTfll73.1 .220.11 .8 .208 . 15 . 1 73 .0 ,208 
1950 DPI TA233. 2 18. 16, 8. 173. 0.208, 105 ,4 . 11 

1 .0.208. 76. 19. 234.-1 
I960 OPiTO53000.128.169.20,l41 ,20.3,169.1 

92.141 ,21 ,3 .88 ,96.-99 
1 970 1 F NS >6I HENNS =6 : SC = SC * 375 1 GOSUB200B 
1980 FORJslB62T01865-NS*3STEP-3:P0KEJ ,65 

:POKEJtl .66:POKEJ*O.0:POKEJ*l+D.0:N 

EXT 
1990 RC1URN 

2000 S4*SrRi(SC)iFORJ=lTOLENCS*)!POKE102 
9tJ .fiSCinlDiCSi.J .1 )J:NEXT 

2010 0 = INT CSC/1 000 3: |FO>PTHENP=0: NS =NS* 1 
:GOSUB1970: GOSUB2090 

2020 RE TURN 

2030 FORI = 1 T02: POKE 1064-NS*3+ [ ,28: NEXT: N 

S =NS- 1 : I FNS > -0 THENRE TURN 
2040 PRINTS CLR/"HOnEJLCRSR/DOWN*l0KCRSR 

✓RFGHUMIGAHE OUER" 
2050 P0KE56334.PEEKC 56334 JAND254 
2060 P0KF.788.49:PaKE789.234 
2070 P0KE56334 .PEEK C56334 3QR1 1 P0KE198 .0: 

POKE53249.0.-POKE54296.0 
2080 rORI=lTO2008:NEXT:SYS2048 
2090 FORN-S^ 14roS'20:POKEN.0:NEXT 
2100 POKFS+24.15:POKES+19.B1:POKES* 15.30 

: POKES* 18,17: RETURN 
2110 POKEU+21 .l:F0PJ=5T01STEP-i:P0KE4915 

3 .J: FORI =132-J*20TO142-J*20:POKES+1 

.1 

2120 FORH=ITO40: NEXT: NEXT: NEXT : SC=SC*LUx 
75: GOSU82000: FORJ « 1 TO3000: NEXT t LU=L 

71 30 F0RJ-210fi:P0KE49153,j:F0RI = 142-J*20 
r 0 1 32- J x?0S I FP -1 : POKES* 1,1: FORH = 1 TO 
40 

2MB NF.XT:NEXr:NEXr:U=LJ-»l :£=E*2 
2150 GO! 01600 

7160 H*t--r IBB-PF.EKCU 3 V7:P0KEU+14 .PEEKCU3 

» 1 7 • n« : POKE U • 1 5 . 1 95: 3 =3 
7170 POKEUI71 .PEEK t U >-2 1 30R1 29: FORJ = 195 TO 

l3B*I.U*2STEP-3 
2180 P0KEUM5..I: I--JM: IF I =5TH£NI =0: POKEU 

t!4.PCEKCUt l<?)*p|x 
2190 K=PEEKtU*3B ): I FtKflNQl 28 T=0THENNEXT : 

GOTO2240 

22R0 FORN=3tL4TOS«-20:POKEN.0:NEXT 

2210 POKES *?4 .15: POKES* 19 .14: POKES* 15. 2: 

POKES' 18.129 
2220 FORJ = l 106: I F TKP.NDC 2*J 3 3=0THENNEXT 
2230 POKE2040+ J . 15: SC-SC »25: GOSUB2000 
2740 P0KEU*71 .PEEKf U*2 1 3AND127: RETURN 

KONTRQl.SUfl FOR STJFRNEKRIG 



1600 


35 


1610 


117 


1620 


229 


1630 


199 


1640 


21 


1650 


237 


1660 


101 


1670 


130 


1680 


223 


1690 


207 


1700 


222 


1710 


241 


1720 


101 


1730 


186 


1740 


210 


1750 


209 


1760 


28 


1770 


104 


1780 


130 


1790 


54 


1800 


227 


1810 


40 


1820 


57 


1830 


140 


1810 


239 


1850 


112 


1B60 


122 


1870 


142 


1880 


156 


1890 


110 


1300 


162 


1310 


109 


1920 


153 


1930 


202 


1940 


113 


1950 


73 


I960 


137 


1320 


45 


1380 


3 


1990 


142 


2000 


224 


2010 


75 


2020 


142 


2030 


199 


2040 


38 


2050 


42 


2060 


21 


2070 


251 


2080 


117 


2090 


29 


2100 


173 


21 10 


235 


2120 


3 


2130 


74 


2140 


193 


2150 


00 


2160 


104 


71 70 


38 


2180 


137 


2190 


180 


7200 


29 


2210 


230 


2220 


30 


2230 


149 


2240 


173 







62000 
67010 

62020 
62030 
62040 
5-2050 
62060 
52070 

620H0 
62090 

62100 

62110 

52128 

62130 
62140 
62150 
6216R 
62170 
621B0 

62190 
67700 

62210 

02220 
62238 
62240 

B2250 



1 000 


35 


1 010 


203 


1020 


150 




1030 


35 


1040 


204 


1050 


20 


67260 


1060 


91 


1070 


20B 


1880 


147- 


62278 


1090 


179 


1 100 


190 


1 1 10 


51 


67280 


1 120 


139 


1 130 


143 


1140 


193 




1 150 


98 


1 160 


193 


1173 


148 


67290 


1 180 


106 


1 190 


79 


1 700 






1210 


185 


1 220 


41 


1 230 


129 


62300 


1240 


202 


1 250 


43 


1260 


245 




1 270 


251 


1280 


2 18 


1290 


1 92 


62310 


1300 


203 


1310 


15 


1320 


170 




1330 


237 


1 340 


155 


1 350 


201 


62320 


1 360 


1-42 


1370 


192 


1380 


231 


62338 


1 390 


33 


1 400 


222 


1410 


227 


62340 


1420 


227 


1 430 


85 


1440 


226 


62350 


1458 


211 


1 460 


13 


1470 


189 


1480 


27 


1490 


92 


1500 


142 




1510 


200 


1520 


224 


1530 


101 


62360 


1540 


162 


1550 


104 


1560 


9 


62370 


1570 


206 


1580 


150 


L590 


82 


62380 



REfl KONTROI Lilin FOR U1C-20 K CMI3 64 
PRlNT'TCLR/WIIEJHUflU ER DIN COMPUT 
ER?" 

INPUT *UIC2»=0 CBP164 = 1 : CO 

GOSUB 62070 

GOTO 62240 

IF FL>=0 THEN 62840 

EWD 

DEFFN UEEKCX) = PEEKCX)+259*PEE.KlJ< 
'13 

DATA xxx 

DATA 1 65 ,252 . 1 66 . 253 . 1 33 ,020 . 1 34 .0 
23 .032.019 

Ufllfl 166.216.160.001 ,177.095.133,2 
54,240.013 

UflTfi 200 . 1 77 , 095 . 1 33 . 252 . 200 , 1 77 , 0 
95 , 1 33 ,253 

DfHfl 280.169.080. 133,251 ,177,095.2 
40,006.024 

Uf\Tn 101.251.200.208.244,096 
UATfl -1 

ftD = 52992: IFCO=0THEHAD=828 
RESTORE 

RtflD Ti: IF TiO"W THEN 62170 
READ T : IF T > =0 THEN POKE flD.T : 
f»D - BD*l : GOTO 62180 
1FCO=8THENPOKE838 .198 

PR1 N T "[ CLRxHOrtE 3HU0R 0NSKES KONTRO 

LSU11 printet:- 

PRINT"TUxnONJT0R=8 PR INTER=4 PLOTT 

ER=6" 

INPUT DE.U 

RETURN 

FL s 0 : INPUT FBRSTE LINE 'i FL 

: IF FL<0 THEN RETURN 

LL = 65536 : INPUT SID5TE LINE "i 

LL : PRINT CCLRyHOflEl ' 
IF DEU>0 THEN OPEN 1 .DEU 
LN = FL : C = 0 : CI = B 
POKE 252. LN-INTCLN/256 3*256 J POKE 

253 .LN/256 
IFCO=0THEN SYS 828: CS=PEEK(25I ):i.N 
-FNDEEKC252 3*! 

IFCD=1THEN SYS 5299?: CS =PE£K 1251 3! 
LH=FN0EEKt252)+l 

Ti = LEFTt{S7ffiCLN-I )+" ",63* 
LEF 1 iCSTRi CCS 3* " ".5 3 

IF DEU=0 THEN PRINT Ti: 
IF OEU>€ THEN PRINT«l.Ti; 
IF DEU = 0 THEN C = Ol : IF C>=3 TH 
EN PRINT : C = 0 : Ct 8 CI * 1 
IF DEU>0 THEN C = C+l : IF C> = 3 TH 
EN PRINT«M : C = 8 : CI = CI * I 
IF LN<-LL AND PEEKC254 3 THEN 62280 
IF DEU>0 THEN PRINT* 1 : CLOSE 1 
END 
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TIL COMMODORE 64: 
BOMBER 



I REN flRD L HONSER 

3 GflSUB 7005 

4 U=532«B:pOKEUt21 .0:POKE2B12 , 13:BX=B0:B 
Y-30 

3 SU=51296: SU=54276:Sfl=5127?: SH^54273: SL 

=54272: JUW^0! POKEUMt ,7 
6 PRINT *' SPEED PLEfl5E":POKEU*4 ,BX:POKEU+5 

.BY 

? PRINTS PR] MI "SUPERFRST- I "SPRINT TAST-2" 
: PR TNT 'NEmUri-3":PRINT"SL0U-<r 

8 INPUT "OR SUPER SL0U-5":XP 

9 IrXP=lTHENSP=0 

10 IFXP=21ltENSP^75 

n tFXP=*3mEHsr=i30 

12 IFXP=4THENSF=300 
IT IFXP=5lMI L .NSP=6e0 

I I If XP >STHENPR IN TCHR* ( 1 17 J: G0T06 

15 U-XPClTHENPRINTCHRitl 17 JSGOTG6 

16 riC = 0:i'RJNrCHR*tl173 
20 IFriC>?0l|ltNl0lCl 

23 irncc>i0anro30 

27 JFnC = l01||ENFORX=lTOi:POKE5378l .UPOK'E 
532HH,l:P()Kf;r»328l ,0: POKE53260 ,0: NEX IX 

T\ PPlNTCHRSt M7J:f OKXM T07 : PR INT: NEX IX 

71 PRIHKHRHlBr UF.RY GOOD - YOU'RE lift 
LF WAY THRMUi;H":PRiN!CHH4( 193: JUT1P=0 

25 GOSUB203I 

30 rr=l :X^0 

31 FDRLP=0TO2 

37 POKESU . I .'>; PDKESW . 33: POKESA .0: POKESH . 1 

5;pn<ESL .0 

33 PPJNTCHRiCiar CODE RED - NAD L BOHR 
E& APPROACHING '*:FORLO = 1TO100:NEXTL 
0 

31 PRINrCHPlUaiCHRUlBr CODE RED - HAD 
L BOK8ER APPROACHING ' 

35 POKLSU. 0: POKESU, 0:PO*ESA.0: POKESH. 0:P 
OKESL ,0:POKEU»21 .1 

36 FORLO=UO40:NEXTLOsNEXT LP 

37 JFK1=CHR4(X HHEN40 

10 N=J NT (PNiHl 

11 IF.IUI4P>07HFNGOTO82 

12 JUMFM 

50 POKE5-32R1 POKE53280 ,0: PR INTCHR* C5 J; 
CHRiC19J 

?ta FOR X=0TO39:poKEl911*X,l20:POKE562l6-» 
X.7:NEXTX 

75 FORX=07Q-3sLQ--lHTCRNOC l >*30 1*1: POKE 130 

1 tLO . \ 02 : P0KE56 l 76*LD , l 3 
7? POKEl864tLP,97:POKE56l36TLD.l3:NEXTX 
90 FORX^0TOr,:L[j = lNTCRNLU 1 3*35 ) r- 1 : POKE190 

1i-UM02:POKErif5l/Rtl.ll,I:NEXTX 
82 FORX=0TO39:POKE1024*X ,42:P0KE55795*X . 

l2:Nh>;l>; 

90 CR=CR-40: IFCR <-808 THENCR =-800 
9li HJRX=0IO2i:LD-INrCRNDU )*35 HI 
SG PUKE 1 864 r LU 1 C R , 4 2 : POK E5S \ 36-*LD+CR . 1 : N 
EXT X 

:>. i hRX--0!O1:LD = INTCRNUC 1 J*35Hl 

98 PuKE1144iL0.17:P0KE55416-fLO,l:NEXT X 

100 l.E- linCRNDC61 J*90)*l 

MP IFLE<65ORLF_>90GOTOI00 

120 GEIKi: IFKi=~ " THEN302 

130 IFKi=CHRitLF.)THENt55 

110 GOTO307 

1 5 c: . POKEf.U . 1 5: PaKF.SU . 133s POKES* .0: POKESH 

.0:POKESl .130 
156 I' OR FRVMT02 

137 BX=BX 1 : BY -BY-Bs POKEU+4 ,BX: POKEUt-5 ,B 

170 F J RIMI CHR*C13~)CHRUl45)CHR»tM3:)TABt 

N ).' s PRINT s~ 
\7? I'RIMI f-URtC!3 JCHK'Kl45Ji:HR-Ul45JTABl 

MJ::PRINII.IIR*CLE j:BX=BXH:BY=HY-B 



173 PFJNf CHRtm)CHPlCH5 3CHRt(l45nNBt 

N.l;:PRINI - :P0KE"*1.BX:PQKEU*5,BY 
I7A PRIin i.HRiCll JCHRltH5XHK*tiq5JTFiBC 

N J; : PR I NT " x " : BX =BX+4 : BY =B Y- 8 
175 PRINT CHRtCl3)CHRi[H5XHRiCI45]TflBC 

N K : PR] NTCHRi L2ft 3" . " - P0KE0*4 , BX 
]7C> PRlni LHRiU3JUtRUl45XHR4Cl45)Tfl8( 

N i; : PR I NT CHPi CLE-)* POKEU+ 5 . 8Y 
17" PRINT CHRitl3 JCHRK 1 45 JCHRit 1 45 )TflBt 

ft )i : PRINI " ♦* :PRlNTCHRtC5l 
179 NEXT FRY 

I B0 POKESU .15: POKESU , 1 29: POKESA . 1 5: POKES 

H.40tPOKESL,20M 
102 P0KEUK2J ,0: FORPL =1 T01 00: NEXTPL 
1R5 POKESU. 0:POKr£sU.0:POKEsA.0:POK£SH. 8: 

POKES!. .0 

I 87 POKESU .15; POK ESId . 1 29: POKESA .15: POKES 

H.40SPOKESL.200 
1 8B POKESU. 9: FORPL = 1 TO20: NEXTPL: POKESU .6 

s FORPL - 1 1020: NEXTPL: POKESU .0 
1 89 PQKE5M .0: POKE SO ,R: POKESH .0: POKEbL .0 
3 40 POKESU . 1 5: POKESU . 129: POKES* . 1 5: POKES 

H.40:PUKE:.L .200 
191 FORPL =110350: NEXTPL 
l'J-3 PUKELH21 ,0:POKEU»5.24:POKEU-»1 ,60 
200 POKESU ,0: POKESU ,0: PQKESfl ,B: POKESH. 0= 

pokesl • 0 

2'.in NL-nC 1 1 : PRINI CHP1-C IS ):BX-&0: BY =60: PO 
KE'Jh21 ,0:aOTQ20 

hi? |-TIKI:3U, 1 3i POKESU . I IsPOKESft .740: POKES 

ll.i i:i'f iKk;.l ,B 
301 I Ur:i-SU B n:riiKP.sW.H:Pr)KESft.0:pOKESM,0: 

I OKESI .i' s 

3H0 IW-INURNUC1 )>:2) 
308 IFU')-0THt[IBD=l 
2USS1 JFIU-nHttlH|t— l 
310 N'Mi'fftJ 

IMIOTHUJM=3 

11,' II N^3^THEt4N-3y 

r:3 I'PINTLHKtt HJCHRtl 145)TftB(N)i :PRJNTC 

HR4CL!: J 
350 FORL=1TOSP:NEXI 
360 1 T -11 ♦ I : IFTT = 17THEN800 
370 PR I NTCHRI I 145 nwHM JCHRSC28 3CHR* [ 16 J 

:PRINTCHRiC5 5 
1 77 PX =BX+Bs BY =BY^ 8: POKEU+-I . BX : POKEU+5 ,B 

V 

380 GOT Dl 20 

MUtl F OR BOM ini5:P'JKI; 53281 , 1 ; P PKE 532B0 , J 
SP0KF.537H1 .0:PUKF.53280,0:NEXT 

tH'2 POKF.U-^21 ,0s T'OKtU'* 4 , 21 = P0KEV^5 ,60 

PRINTCHR4C 147 i- FCIRX= I T05: PRINT: NEXT: 
PR] NTTflBt 1 5 J" OH DEOR I ! t " : BOSUB 1 050 

808 PRINTCHRtC 14/ j: FORX= I T05: PRINT : NEXT 

810 PRINTTPiBtflJ'YOU'LL HflUE TO BE FASTER 
"SPRINT 

PRINT IRHC V J; 10 SflUE THE CITY FROFT 
81? PRlNT:PRJunABC7 ) I HE MAD L BON 

BER 

814 PRINT: PR 1NHABC7 ) YOU DESTROYED ';riC 

L BUMBS l"sPP]MTCHRi(19 3 
•815 FORX-ITO1000: NtXTX 
870 GOSUB 7031 

BQB PR I NTCHRI C 147 J: FORX = I T05: PRINT: NEXT: 
PRINTTP.BC7 v-WflNT TO TRY AGAIN CY OR 
NT 

B40 GETPit: £FftV = " " THEN840 

850 IFfll =*'Y' THENPR I NTCHRI C 19): GOSU82031: 

CLR:G0T01 
857 1FA4 ="N~7HENBG0 
854 JFA4O ,, N"THENR30 
Rh0 EMU 

1 050 F (1RXX=35T U0ST EP- .2: POKESU .XX : POKESU 
,i^9:P0KESfl. 15: POKESH -40: POKESL ,200 
s NEXT 

1052 FORXXr33TO0STEP-. 2: POKESU. XX: POKESU 
. 129: POKESA , 15: POKESH. 10: POKESL .200 

: NEXT 
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1 034 POKESU . e : PUKESU . 0 = POKESA . 0 ? POKESH - 0 

: POKESL , 0: RETURN 
2005 S0=54296: SW =542/6= SA=54277: SH=54273 

: ^342/2:^=33248 

PRINTCHRiC 117 ]:P0KES378l ,0:POKE5328 

0.0:PRINJKHK*C3 J 
707P HJRPTrlTOe^RINTcNEXTU'RINTTABtnr 

I B0I1B BUSTERS ' 
2022 PRINT: PRINT TAB( 13 ) '8V GARY FIELDS" 
7023 PR ! NT : PR I NTT flB U 8 T I 983 " 

2024 (-UKX-!TO'J00:NtXTX 

2025 PRINT :PRINT: PRINT "YOUR MISSION IS T 
(J SflUE THE U fY FROM" 

287fi PMINrrflBtll KHRtf IB r THE MAD L BOMB 

ERH" 

207/ PRINT'-nESTORV THE FALLING LETTER BO 

MBS &y~ 

7H7B PRINT PRESSING THE SOME KEY ON THE 

KhYBUAPU " •* F C IkX » IT 0 ! 000: NEX IX 
2029 PRINTUHRK 1 3 J: FORPR =0TO63: RFAOPQ: PO 

KE»3?fPR ,PQ: NEXTPR 
7fl3l 1-UKUL=0TU50H:NFXTDL 
2033 ft URL * 0TO24 : POKESL-* L NEXT 
2040 PGKESL+ 14.5: POKESL MO ,J«! POKESL+3 . 1 

: POKESI 1 74 . 1 13: PUKtSl *6 ( 240: POKESL* 

4 ,R3 

saye i k'-'j3m:.» 

20BM i IJKM Ml U30:Fg=hK+PEEKiSL»-27 1*3.5 
7w,v HI ^INT(l-U/?56JsLF=FCl-HF«5esP0KE'SLi 

P.lf'sPUKESL+l ,HF 
20?3 PRINT7AIU 18 I"L BOIIHC ARE FALLING": N 

LXT: POKES! 17/1.0 
2mm PKINTCHR»U*17):RETURN 



401 0 PRIMTLHRSC 147 ) : F ORX IT05: PR INT : NEXT 
:KRlNTTftB(ieirUERY GOOD FAST FINGER 

S"' 

'181? PRINTTflffH^J' -YOU UIH- : FRJ NT : PRINT 
4014. PR IN fTABl 7 1 "YOU BURST ALL : nc ; " L 

BOMBS" 

4013 PRINT : PRIN f THE HAPPY PEOPLE OF THE 

E.ITY THANK YOU ! ' 
<\m\* . PRL=vmj24: POKESL H_ .Hi NEXT: POKESL-r0 

.240; POKESL 1 1 .33: POKESL t*5 ,8 
4030 t 'i )K E oL 1 22 . 1 04 : POKE SL t 23 . 1 : POKESLt 24 

, ?3S FORM -1 TO 13: POKESL '4.129 
4H60 Fr)RXT = lTU100:NEXT:POKESL + 4 . 128 = F0RX 

I =nU3B:NEXT:NEXT 
4005 ITJKESL - 22 P0KESLt33 .0: POKESL +24 ,0 

: POKESL t-4.0 
4007 PUK£SL-tl.0:PUKtSL-*0.0:POKESLtl .0:po 

KtSL»S .0: POKESL *22 ,0:POKESL+23 .0 

4068 POKESl + 33,0 

4069 MlRX=0Ta9y9!NEXTX 

4070 COTOQ30 

6000 UfVTAa. 0.0. 0,0, 0,0, 0.0. 0.0. 0,0, 0,0 , 

ft ' 10: 

A001 IJP.TA0. 0.0. 0.0. 0.1 2. 0.125 .30, 64. 199. 

152,32.274. 718 
R002 l>hTfV3?. 176. 108.38.184.127.33.143.25 

5.74fl.255.?54.29,?5<i .0. 28 
6003 I iflT A?. 255.157.3.255.248. 1 ,255. 193 .0 

.0.6.0.0.0- 0 
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TIL COMMODORE 64: 
HUSK0B 



1 STREG* = '* 



3 U=355?xl5;U=646 

1 POKE U*1.15;P0KE U.11:POKEU.0 

99 GOTO400 

100 INPUT ■SKflTTEPLIGTIG INOKOMST" ; IK: S I -- 
IK 

110 INPUT " SKftTTE x KOMHUNE" ; KP: Kp -KP/10 
0 

170 INPUT SKftTTE x OHT ; ftp: OP =ftP/l 0 

0 

130 INPUT SKftTTE * KIRKE " ;RP: RP=RP/1 0 
0 

140 G1M09700:G2 = 179000 

150 P IM1 4/100; P2 -28. 8/100: P3 --39. 6/100: 
FP = 3 . 5/1 00: DP = 1 . 00/ i 00 : P4 =2 . 2/1 00 

I m GF = 1 158300: F I =29000: F2 = 18700: DB = CFP » 
DP 3*SI 

170 IF5KG1 THEN S=SI xPt 

188 IFS I >G 1 THEN S = CG I »P 1)>- CP2*C Sf -Gl 33 
190 IFS I >G2THEN S = f Gl *P 13 + CP2*CG2-G1 3 3+C 

P3xCSI-G2)3 
200 IFFO<"GFTMFN FS=0 
210 IFFOGF THEN FS =P4x CFO -GF 3 
220 SF = (FI*[P1 iFP+OP 3 3+ CF2xCKP*AP+RP J 3 
230 KS=Slx<KP+APrRP 3 
240 IS=IS'KS+DB)-SF 
230 RETURN 

400 PRINT XCl.R/HOnEJ":X=2: Y=4= GQSUB2000: 
PRINT "fJETTE PROGRAM UOREGNER SLUTSKA 
TTEN " 

430 X-?-:Y-5:GOSUB2000:PRlNT-'DU FflfiR SftMT 

101 G SKflT TEFORSKELLEN." 
440 X-3:Y=9:GOSUB2000:PRINT"[8LK)1 J NUUi 

RENDE KOrtMUNE" 
4r.R X - 1: Y - 10:GOSUB2000: PRINT "C RED 32 J fiNO 

EH KOMMUNE " 
460 X=3:Y = U:GO5UB2000!PRINT"CBLU]33 K0B 

ftF BDLIG I NUU-4RENQE KOIiri." 
430 X=3:Y=12:GOSUB2000:PRINrtBLK]4) K0B 

flF BOLIG I RNDEN KOMM . 
490 X = 3:Y=13:GOSUB2080:PRINT , *CUHT351 MEL 

LEM 1 3 DG 4 3'" 
510 X = 1 0: Y = 1 8 : GOSUB2000 : PR I NT " [ RED 3 TRYK 

<SPACf BAR>[ BLK1 " 
520 GET 04: IF Q*OCHRU32 3THEN520 
R00 PRINT I CLR/H0HE1": INPUT '[CRSR/U0WN*7 

Jt CP5R/RIGHT3NUUJRENDE KOMNUNE " ; NUKt 

:GOSUB100:NU=IS 
610 INPUT "tCRSR/RIGHnSKWTEfUSSIGT UNDE 

rskud :su:si=ik-su:gqsub 140=ej=is 
700 input "f crsr/right3t ilflytte k0t1p1une " 

;tko$:si=ik 
710 kp = 0:ap=0:rp=0:gosub 110:tk=is 
000 si --si-su:gosub140:edms 
9rp print i clr/h0me1 ' : pokeu ,0: pqkeu+ 1 .0: 

POKE U.5 

905 X;l:Y=l:GaSUB2000:PRINT'NY KOflNUNE: 
[RUS/ON] im%\ [RUS/OFF] KOMflUNE" 

906 X= 1 : Y = 2: GOSUB2000: PR IN T "SKftTTEPL JGT I 
G !NDKOriST":BE-IK:GOSUB2100 

910 X=3H-HM: Y=2:GOSUB2000: IK =BF_: POKEU .S: 

PRlNTINr(IK1-P0KEU.5 
970 x = l : Y=3:GOSUB2000: PRINT SKflTTEli^SSI 

GT UNDERSKUO ' : BF. =SU: GOSUB21B0 
921 X=31 'Hfl: Y^3: GOSUB2&00: SU=BE: POKEU ,8: 

PRINTINftSUJsPOKEU.S 

925 X=l:y = 4:GOSUB2000:PRINr 'INDKOflST MI N 
US UNDERSKUD" ! BE =51 ! GOSUB2100 

926 X=3 1 t-Hpl: Y =4 : GOSUB2000: S I =BE : POKEU . 2 : 
PRTNTINTtSI 1: POKEU. 5 

940 X = t : Y = 5:GDSUB2000:PRINT 'SKflT 1 LRUS/ 
ONI" JNUKV't RUS/OFF] KOrtrt. :BE=NU:GOS 
UB2100 



941 X=3l+HM: Y=5: GO5UB20B0: NU=8E: POKEU , 14 
:PP1N1 INHN»J3:POKEU.5 

950 X=]:Y=6:GOSUB2000: PRINT"SKflT 1 [RUS/ 
0N3 ; TKOi '[ RUS/OFF 3 KOtlPl . ~ : BE = TK: GOS 
U8210B 

951 X=31+Hfl: Y=6: GOSUB2000: TK^BE: POKEU. 4: 
PRINTINTCTK3 

360 X = 0: Y =8: GOSUB2000: POKEU , 10: PRINTSTRE 

Gt : On =MU-TK : M ' ABS C DA 3 
970 X=2:Y=7:GOSUB2000: POKEU ,2: PRINT "C RUS 

/0N3UIFFERENCE;[RUS/0FF1":BE-0A:G0SU 

B2100 

371 X=31rHM:V=7:GDSUB200a:Dn=BE:POKEU.3: 
PR INT INT tOC\ l: POKFU .5 

990 X*l:Y=9!GOSU82000:PRINT"SKAT I C RUS/ 
ON 1" : NUK* I '{ RUS /OFF 3 KOMri . " : BE =NU: GO 
SUB2100 

991 X=31+HM: Y=9: G0SUB2000: NU=BE : POKEU . 14 

: PRINT I NT CNU): POKEU, S 

1000 XM: Y = 10: GGSUB2000: PRINT' SKAT EJEBO 
LIB 1 tRUS/ONJ' :NUKi 7RUS/OFF3 KOItM 
. •:BE=EJ:GOSUB2100 

1 001 X =3l+HM: Y = I 0: GOSUB2000: EJ =BE: POKED , 
MiPRINTINTCEJ 3 

1010 X =0: Y = 1 2: GOSUB200B: POKEU . 1 0: PRINTST 

RF.G4:0B=NU-EJ: DB = ABSC0fl 3: POKEU ,2 
1070 X=2:Y = l 1:GOSU82000:PRINT'CRUS/ON3SK 

nTTEN ER REDUCERET HEDC RUS/0FF3 " : BE 

= DB:D8 =ftB9CDB 3 
1 02 1 G0SUB2 1 00 : X - 3 1 * Hfl : Y - U : GOSUB2000 E DB 

=BF: POKEU. 3: PR INT INT tDB): POKEU, 5 
104.0 X = l:Y = 13:GOSUB2000:PRINT "SKAT I C RU 

S/0N3"; TKOfC RUS/OFF] KOMH . " : BE = TK: 

GOSUB7100 

10'M X =31 +HM: Y = 13: GOSUB2000: TK=BE: POKEU . 

4!PRINTINTCTK)!POKEU.5 
1050 X = l: Y=14:GOSUB2000:PRINT "SKftT EJEBO 

LIG I tRUS/ON] ": TKOi: 'T RUS/OFF 3 KOM 

M .~:8E=EO:GOSUB2100 
1 05 ! X =31 +HM: Y=14: GOSUB2000: EO=BE! POKEU , 

4: PR INI INr[ED3:POKEU.5 
1 0R0 X=0: Y= 1 6: GOSUB2000: POKEU . 1 0: PR I NT5T 

RFGi : DC - TK-GO: TK-flBS C TK 3: POKEU . 2 

1070 X=7:Y =15: GOSU02090: PRINT CRUS/0N3SK 
ftTTFN FR REDUCERET MEDC RUS/OFF] BE 
^0C:0C=O8SfDCD 

1071 GOSUB2IB0:X = 3I tHfl: Y = 1 5: GOSUB2000: DC 

-BE : POKEU . 3 : PR I N T I N T ( DC 3 : POKEU . 5 

1090 X-l: Y=17:GOSUB2000:PRINT SKAT I C RU 
S/ON } " ; NUK 4 "t RUS/OFF 3 KOMM . : BE =NU: 
GOSUB2100 

1091 X=3l »HN: Y=17:GOSUB2000:NU=BE:POKEU. 
14:PRINTINTCNU3;POKEU.5 

1100 X-l: Y MQ:GOSUB2000:PR|NrSKnT EJEBO 
I [G I CRUS/DN3 i iKOi't RUS/OFF 3 KOMM 
.":BE-ED:GOSUB2100 

1101 X = 3 1 tHH : Y - 1 8 ; BOSUB20 B0 : POKEU . 4 : PR I N 
TINTfED 3 

113 0 X=0: Y=20:GOSUB2000;POKEU.10;PRINFST 
REGi: DD=NU -ED: DD = PBSCDD 3: POKEU .2 

1120 X -7: Y - 19: GOSUB2000 : PR INT' C RUS/ON 3 SK 
flfTEN FR REDUCERET flEP ' : BE : DD= DD=flB 
SCDD 3 

1121 GOSU02l00.*X = 3l *Hfl: Y = 19: GOSUB2000=DO 
^BE:POKEU.3:RRINTINTCDD3:POKEU.0:EN 

.Sfe. p .. . ,; . 

2000 REM* SUB. TIL X.Y POS xxxxxxxxxxx 
2010 PRINT"! H0ME3"; 

2020 IFYO0 THEN POKE 214 .Y- 1 ! PRINT 
2030 POKE 211.X 
2040 RETURN 

2100 REM* SUB . H0JRE MARGIN x*xxxxxxxx 
2105 IFI3EO THEN MM =6: RETURN 
2110 IFBE<10 THFN Hfl =5: RETURN 
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2120 IFBEC 100 THEN Hrt=4 : RETURN 

2130 1FBEC1000 THEN HM=3: RETURN 

2142 IFBE<10800 THEN HM=?: RETURN 

2150 IFBE<100000 THEN HI1 = L : RETURN 

7160 IFBE<10a0000 THEN HM=0: RETURN 



KONTROLSUfi FOR HUSK0B 
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i an 
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150 
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160 
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1 ~?0t 




180 
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l JO 
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rf.tf.i 
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1 
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1 75 
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800 
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104 
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95 1 


193 


9(50 


202 
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109 


1020 


169 
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203 
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1051 


75 


1060 


153 


1070 


176 


1071 
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1091 


179 


I 100 
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1 101 


204 


1 1 10 


139 


1 120 


3? 


1121 


140 


2000 


247 


2010 


43 


2020 
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7105 
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TIL COMMODORE 64: 
DATABASE 

10 P0KE53281 . 14 : Tt^' NO NAME" 

20 PRINT I CLR/HOflEDC WHT3F I LE NAplE": INPUT 

7iiPRINT"t CRSR/DOUN*63 P 

LEASE WAIT":T*=LEFT*(T*,14 3 
30 N-1000:P-l:X=CN' l 3xl0:QlriS*CN]:R*3- |_ 

J HP a " : S0SLIB8 1 0: GOT 000 
■40 K=0 

50 Q=0: PRINT I CLRxHOflf It WHF 3[ RUS/DN3CATA 
LOG: ; rt CCRSR/O0UIN*21": PRINT PAGE 

60 FDRJ=KT0N: IFASCi: St t J 33 = 1 8THENPR INT'T C 
RSRyLEFT3 1 INT t J/10+1 3:S4CJ 3:0=0+ l: IFQ 
> 1 0THFN80 

70 NEXTJ 

80 G0SUB26B; ITA^BTHENSB 

90 UNAGOTO40 . I 20 . 190 .220 . 290 . 360 ,418.570 

.470.520.310 
100 IFJ<N-MTHENK=J:G0TO58 
1 10 GOTO40 

120 pRSNT"[CRSR/OOWNx2 3PAGE« :JNPUTft*:P = 
UftU A* ): G0SUB27e: IFAO0THEN30 

130 IFP<lQRP>XTHENPR[NT"[CRSR/UPx3] ':G0T 
0120 

140 PRINT rR»J5,'0NK. CLR^HOIIEIPAGE P:T*"CC 
RSR/DDUN*23*' :F0RI -0 109; L=tP- 1 3* 10+1: 
PRINT TCRSR^LEF T]"L; S*(L *:NEXT 

150 G0SUB26B: IFft=0THEN150 

160 IFFIO12THEN90 

170 P^Pfi: IFP>XTHENP=1 

180 GOTO140 

192 Al = -1 : PRINT 'LCRSR/00UN*2JEHTER"R*: 
INPUTAl; J =UALCA* ):GOSUB270: I FA< >0THE 
N9B 

200 IF J <0OR J > IN r f >0* 1 B M THENPR INT "C CRSR/ 

UF*5J :fiOmi90 
210 iNPursttJ ):G0IU1 160 



220 A*='-l ' =PPINT [CRSR/DOUN*23 INSERT'R* 
:INPUTAI; JtUflLfflt):GO5UB270: IFAO0TH 
EN90 

230 if j <0or.i > I n r ( y. )* i a > 1 1 henpr int "c crsr/ 

UP*53":GOTO220 
240 PRINT FNTRY": iNPUTOt: PRINT" INSERT ING 

n s IFR = NTHEN1<10 
250 GQSUB860:FORI-KKTOJ*lSrEP-l:S*CI 3=S* 

C I -1 J: NEXT: SIC J ^-Di: GOT01 160 
260 E*="C,P.E . I .N.S.L.H.K . A . ?[ RUS/QFF 3 

:PRINrrflBC9 3 -[RUS/ONJC CRSR/OOWN3 "E*" 

[ CRSRy-LEF T 3f C'R5R^JP*23 ! GOSUB630 
270 n--0:FaRI = lTO13: IFnlDlCE*. 1*2- 1 .1 3=fl* 

THENfl=l: I =13 
280 NEXT I: RETURN 
290 GOSUB660: IF#»*<> 'V THEN40 
380 PRINT " N £W FILE NflflE : rNPUTTi:G0SUB81 

0:GOTO40 

310 PRINI [aR/M0riE][RUS/0NlCCRUS/0FF3PT 
filOGC CRSR/130UN] ': PRINT "CALL t RUS/0N3 
PCRUS/tJFF3nGEr CRSR/4DQWN3" = PRINT"! RUS 

/ON3URUS^0FF]NSERT- R$ 

320 PRINT CCRSR/OOUN3CRUS/40N3ECRUS/OFF3N 
TER' R*: PR INT [ CRSR^D0UN3[ RUS/ON 3KC RU 
S/OFFJILL R»:PRINT E CRSR/00UN3C RUS/0 

N 1 Pf RUS/0FF3L PHABET I ZFC CRSR/DOUN 3 " ! PRINT 
'I RUS/ON1NC RUS/OFF JEU F ILEt CRSR/OOUNJ " 

330 PRINT T RUS/0N3LC RUS/OFF 30P.D FR0I1 TOP 
E OR LJISU " : PRIN T" C CRSR/00UN3 C RUS/ON) 

srRus,<JFFiAUE ra tope or discccrsr^ 

OUN 1 ■ 

340 PRINT ERUSXJN3?tRUS/^)FF] DEFINITIONS 
i PR INT "[ CRSR/C0UN3[ RUS/ON 3 HT RUS/OFF 

3 LIST TO PRINTERCCRSR/UP3-:GOSUB260 
: IFP=0THEN31B 

350 GOTO90 

360 PRIN! tCLR/HOi1E3[8LX3SAUE TO TAPE OR 

D ISC" : GOSUB668 : IFfli < >' VTHEN40 
370 PR INT T R'JS/ON3D[ RUS/OFT 3 ISC OR tRUS/ 

ON 3 Tf RUSXOF F JAPE? :GOSUB630: IFftt = , 'T" 

THEN1B0 
38& IFp*<>"P THEN40 

390- DPEN2 .8.2. 'O0: +Tt + ' i SHIFT^-XI . S .U " : 

J =7 ; GOT 0890 
400 OPENl ,1.1,1V: .i = l:GnrO890 
410 PR I N I f CLR/HOflE 11 RUS/ON JLOAD FROM TA 

PE OR DISC": G0SUB668: |Ffl*<>" Y"TMEN40 
420 PRlNTTRUS/ONlOCRUS/OrFirSC OR CRUS/ 

ON I rr RUS/OFF TAPE? * : GO5UB630: IFA*="T" 

THEN460 
430 IFPtO "O' THEN40 

44B GCJSUB9;0: PRINT ' T CRSR/UOUH IF I LE NAME? 

: I NPU I N* : 1FN4 = " " THEN40 
450 OPEN2.8.2. 0: -NV+ ' CSHIFT/XJ .S.R M :J 

^2:GOTO930 
460 OPEN I ,1 .0: J r l : GOICJ930 

470 PRINT" TtRSR/OOUN*23KILL 'Ri: TNPUTA*: J 

=UiS f^4 i:GOSUB270: IFAO0THEN90 
480 IF J <0ORJ >NTHENPRINT' C CRSR/UP*2 3 " : GOT 

04 70 

490 FDR I - J I ON- 1 : IF Sif I 3 - "C SI 1 1 F T/« J ANPS* 

f I *l J- L SHIP l/xl ■ THEN 1 =N- 1 :GOTO510 
50C1 StCU ; S*CI«-n:GOSUB650 
510 NEXT: S*tN3 = ' ISHIFT/T3 :GOTO140 
570 PRINT TCRSR/1)OMN*23nLPHflBETIZE ;=G 
OSUB820 : U =UAL f A* 3 : I FU <0ORU >NTHENGOT0 

m 

53« lM1ll)*(S'ifi.n. t . 1 V I RU'i/ONl "THEN1I=U + 
\ 

540 nu r sHB810:K^0:FORI=UlOKK: IFLEF r*f C S4 C 
1 n.l )= I RVS/OH3-' THENKM :NN = I-i: I =KK 
550 NEXT I : IFKMTHFN570 
560 NN=KK 
570 1^0 

5R0 l=M: IT! HIT UIHEN140 
590 H J NH I IIHN670 

60R U -Sit J 1>SM J + l 3THENTP4 -S*tJ 3:S$( J 1=S 
*( IM ):S*(J + 1 3^TP* 
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610 J J » UGOTQ590 

070 l=I*l:P0KF5328B.INTtRNDCK]x|5+l ):G0T 
0560 

630 GEIO*: IFFU- "" THEN630 
640 RETURN 

650 PR J NT' f H0HE1 " TAG! 30 )! I '.RETURN 

660 PR 3 N f tCRSR/UOUNxPTrRUS/ONlARE YOU S 

URE 0 :GOSUB€30:RETURN 
670 PRINT I CLR/HOMF X RUS/QN3HARD COPY":G 

OSUHC60: 1 FAi O" V' THEN40 
680 PRINT* FNT IRE F ILE ? : GOSUB630 : IF|°I* = " Y 

" fHENF-0: n=N: GOTQ7J0 
690 GOSU9S20:F=UflLCfl*3: IFF <0ORF >NGOTQ670 
700 PRINT FNDJNG R»: f MPUTiA*: M^UALCA* 3: IF 

M<0ORM)NORn= <FTHEN670 
710 0PFN«!.4:ft*r :FORI=lTOlNr(C10-LENCT* 
13/2) 

770 Ai--fltr-' ' :NEXTI :A*=A4+ f RUS/OFF ] " : PR 
INT "4 .CHRif ! 4 Jflt+T*»f *CHR*( 1 0 3CHRK 1 
03 

730 U^.TOR! =KT-ON: [FLEFTSt S*C I ) . I 3="tRU 

S/ONJ THEN760 
740 If SUT X> TSUIFT/xJ THENPRINTB4 ,CHR* 

fl5r S*CI 1CHR*C103: LL=LL*2 

750 601X1790 

760 A* = : F0RKK-7rOLENCS*C 111*6: At=A*+CH 

Rir755j:KF.XTKK 
770 PRINTS. , G4'-flt:PRINTB'l ,F4+" 

" >StCi l»Gi 

780 PRINTol.F4t »6**-A*tF*CHR4U8 3: 

LL nt.L*4 

790 !FLL>59niFNF0RNL=L,Lr07Z:PR!NTn4 ,CHR* 

I l0l!JNrXTNL!pRINT«4. " :I.L=3 
880 NrXTl:ni.OSE1:G0T0*»R 

810 FOR.' =0TOn: St f j ) = T SHIFT/* r': NEXTj: RE 
TURN 

820 PRINT STftRI ING RS: INPUTA* : RE TURN 
830 FORI=NlO0SIt'P-l : IFSK I K> [ SHIFT/*!" 

THENKK=I - I=0:GOTO850 
840 KK = I . 
650 NEXT It RE I URN 

860 F0R1--J1IT0N; [FStCI 3= C SHIFTS]' THENK 

K = I : I =N:GflTOB50 
670 KK = r 

880 NEK I I: RETURN 

830 FORI fNTOGSTFP- 1 :K = J:IFS«CI )<>"C SHIFT 

/*3' THEN I =0 
900 NE X U : K - K + 1 

910 PRINTaJ.Tit- [ SHIFT/X 3 : PR I N T» J .K: FO 
RI=0TOK 

920 PR 1 N F t» J ,Stf I 1:G0SUB659:NFXT: CLOSEJ:G 
UUM0 

930 INPUI «J I FRIGHTltN* ,2 JO" ISHIFT/- 

X] niFNPRTMTNt" MOT FOUN0 : GOSUB630: 
CLOSEJ:GOTO40 

«W0 I * Nt : I 4 - ) El f *f I * ,1 EN ( 1 * )-2 3 : PR 1 NT C 
LRSR.TlOUNirRUS/CNlFOUNO T*: INPUT* J . 

. k K 

930 I TK >N Tl IF WPR I N T "f rRSR/DOUIN It RUS/ON 1UA 
RNIMGr : PR tN T "F ILE ORIGINATED FROM 
UIC UITH LARGER MEP10RY :K=N 

H60 FORI -01 OK: INPU' »J .S*t I ): GOSUB650: NEX 
T:ClUSEJ:GOrai0 

**70 PPINI T RUS/tJN It CI R/H0ME1Q ISC FILE LI 
STING? I CRSR/1J0WN1 :GOSUB630: IFMO" 
Y THENREI URN 

880 PRINI f CLR/HOME It RUS/0NJ5CANNING DIS 
CI CRSR/OOWN 1 

930 0PFN1 .8.0. 10 

IBB© Gf r»i .n* .o* 
tPin Gtr«i ,n*.B* 

102P GE T » L , At .Bt 
1630 L=0 

1040 If A* < > " " THENC -ASCCA* 3 

105H If B*<>" 'rHENC-dnSCCtl* 1*256 

men u*=o*t i rus/onv *mid*(str4CC3.2)» r 

RUS/OFF]" 



10^0 r,ri«1 ,B*: tFsr<>0TMENCLOSEl: PRINT: RE 
TURN 

1080 IF B*OCHR*C34)THEN1070 

1090 6f T*l ,Cii JF B4 0rNRi<34 3THEND*=DttB 

4:150101090 
1 1 00 Grr» 1 .Bt: IFBi-CHRif 32 JTHENl 108 
1110 c*-- ~ 

I l?H '•*^t»n*:tirTnl ,&\ - IFB40 • THEN1I20 
1130 IFRIGHIlfDl.l 7= r Si MP 1VX3 "THENPRI NT 

Ui 

I 140 0* = ' :GuruiB10 

] 156 Y,v-l:raRI=0TOE:r-ir I ,PWCL3 3 = "tSHIFT 
S*X :NrxiI:ruRl-l. IOY:PMf I 1=px( |M ]: 
NEXTI:L=L-l:RETURN 

1160 IFLPrT*CS*C J 1. I .1 " *--THENStU3= TRVS 
/ONI tRfGHTtCSit J 3.LENCS40 3 3-1 3 

1 170 nriIO140 




KONTRfll. SUM FOR PATnBASE C64 



(0 


209 


20 


723 


30 


10B 


40 


45 


50 


116 


ea 


10 


70 


204 


80 


28 


90 


100 


100 


139 


1 10 


237 


120 


36 


130 


65 


140 


139 


150 


74 


160 


163 


178 


37 


180 


30 


190 


197 


288 


95 


210 


34 


220 


28 


230 


89 


240 


179 


250 


92 


260 


245 


270 


122 


?.m 


147 


290 


95 


300 


B 


310 


75 


328 


240 


330 


96 


3<1B 


166 


350 


242 


360 


217 


370 


161 


380 


231 


330 


131 


400 


249 


410 


221 


420 


167 


430 


231 


4 40 


94 


450 


51 


460 


79 


4 70 


128 


480 


181 


490 


150 


580 


17 


510 


224 


5?0 


89 


530 


99 


540 


198 


5S*j 


fft 


560 


228 


570 


43 




233 


598 


96 


500 


250 


61« 


130 


620 


700 


630 


102 




142 


650 


107 


660 


194 


670 


H9 


680 


173 


690 


221 


780 


189 


710 


36 


720 


1 


730 


9 


710 


135 


750 


41 


760 


166 


770 


80 


780 


155 


790 


136 


B00 


0 


810 


111 


620 


171 


830 


94 


848 


145 


B50 


M7 


860 


5R 


B70 


115 


880 


147 


B90 


179 


900 


48 


910 


212 


920 


136 


930 


9 


940 


243 


958 


54 


960 


73 


970 


79 


980 


39 


990 


04 


1000 


24 


1010 


24 


1020 


24 


1030 


3-7 


1040 


209 


1050 


B 


1060 


125 


1078 


154 


1080 


99 


1090 


123 


1 100 


74 


1110 


93 


1 120 


143 


! 130 


224 


1 140 


227 


1 150 


82 


1 160 


45 


1179 


30 
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• Skrivehastighed: 18 tegn pr. sekund • Typehjul: Triumph-Adler kompatibelt, 
100 tegn • FarvebSnd: IBM 82 kassette • Horisontal oplosning: 1/120" min. • 
Linietaethed: 1/48" (1/96" mulig ved hjaelp af ESC koder) • Tegntaethed: 10, 12 
eller 15 tegn pr. tomme samt proportionalskrift og grafik 

• INTERFACE: COMMODORE 64/VIC-20. 
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TIL VIC-20: 
DATABASE 

1 I* 1KJ NfHU SPRINI I LI H/IKJWCIFILfc NAME 

2 U-lN»ff Rt t01/?0):P l:x (!!• 1 V10:O!HS»C 
N l: PflKE'^AflTq . 1 85: R4- I IN» : G0SUB91 

3 FiV-rHRiris nt -ii hp* r s u go rem 

4 K=0 

5 q -psPRiNi f n P/i inrirr i r ri k krusainico tai 
HO : : l4:i'R|NI RAGE 

r. K I CJM: ! I OSCCSt f J ) 3- 181 HENPRINT "C CR 

SftACf TV INT (J/10* I )!'S*(J):0=Q*i: IFQM 

7 rrf xt I 

8 r,L'5UD2e: If P. -BTHtNO 

9 UHftr.oUH .17, 13,22*29 ,36,41 .67.47,52,31 

10 H r J;<N*lT,HENK*j|SO'R35 
It GO 104 

12 PR 1 N 1 f CRSR AlOUM *2 ) POISE o ' : 1 NPUT A* : P rg 

rti Cm J5G0SUB2?: IFAO0IMEN9 
p IFP<lfj|^P>XHlCNPR|NT 'rcRSR/UP*3]":G0TQ 

12 

14 PR|t*T rRUS/flNHCLR/HOtU jPfiGE P: 14; FOR 
i BT09:'. r.-p i )xi0M :PRINT TCRSR/LEFT J 

L;ssn i;hO! 

15 gusub26: irn:pinirNV5 

16 IFA012TIIEN9 

17 P=P + l: !FP»sTHENP-l 
!8 GOT014 

19 0*- 1 : PR INT ' I CRSR /DOWN* 2 J FN IT R Rt : I 
NCUrit: i U0Lf04 >:G0SUFJ?7: ITOO0I MtM9 

20 II K0aRJ>|NrCX)*l0HrHENPRINT-CCRSR/U 
P*5l iGOTOtfl 

21 INPUISti J j;GOTQl 16 

72 04= -I : PRINT '( fRSR/DfJUNx21 INSERT R4: 
JNPUmt: J=ur»Lin* >:GOSU027: IFn<>0THFN9 

7? II J C0DRJ >lNlCX3r 10. [ IllfcNPRlNf "t CRSR/U 
P*5.| ":cnTn22 

21 PRIIir f N I RY : 1 NPUTfJ4: PRINT" [NSFRT ING' 
: II P MTHFN14 

25 Gnsil|\8r.:rrjpl-KKI0I' I STEP - 1 : S* t I )-StCl 

1 J.'NFXl =Slf J )-n*:B0r0116 

26 F* = CP,!' ,1 ,N.S,L,II ( K.n.?CRUS/OFF] ": 
PR I N I I PUS/ON]! CRSR AJOUN] "ft "{ CRSRAE 
F I JC LRSRAJP*?! " : G0SUB63 

27 0--R: FORI -1T01 3; TFTHQ4tE4, 1*2-1, Ll=A4l 
Mtrlft-1: I -1H 

7M NEXrURFlURN 

29 SUSUBRfi: IFAt < >"V" THEN4 

^0 PRINT NEW FII E NOflE": TNPUTTt-GOSUBSl : 

11 PR I N I rcl.R/IOIEHRUS/ONlCtRUS/OFFJnTO 

LDGt CRSR AJOWN ] " : PR I NT " CALL t RUS/0N1 P[ 
RUS/0FF]nGC[CRSR,-DauN] - :PRjNr"tRU5/0N 
J II. RUSAJFF3NSrRT R4 

32 PRINT f CR5R/D0UN ] C RUS/ON 3 E( RUS/OFF ] NT 
ER"Rt:f'RINf [ CRSR/UOUN JL RUS/ON JKC RUS/ 
OFF) I LI R*:PRINT f CRSR/D0UN3L RUS /ON IP 

I RUS/OFF ]l-PMOflET 1 7Et CRSR/DOUIN) 

33 PRINI r RU5/0N JNf RUS/OFF 3 EU FILEC CRSR/ 
UOUNJ • :PRINI r RUS/0N3Lr RUS/OFF 30AU FR 
OH TAPE OR' D'tSC" : PRINT [ RUS/0N3SC RUS/ 

0FF3OUE TO TAPE OR DISCC CRSR/OOUN]* 

34 PRINT [ RUS/ON 3 ?l RUS/OFF 3 DEFINITIONS" 
: PR INT f CRSR/QOUINU RUS/0N3HL RUS/OFF] 

' 1ST TO PRINTFRI CRSPAiPT" : G0SUB26: I FA 
=0TWEN3t 

35 G0T09 

36 PR I III ICLR^IOnrTCBLKJSnur, TO TOPE OR 
DISC' :G0SUG6fi: iFAtO 1 " THLN4 

37 PRINT tRUS/OHJOtRUS/Urn ISC OR LRUS/0 
umRUS/OFrinPE? :P0SUB63: [FA*= 'T THE 

im 

39 II nt<> 0 ' THFN4 

3^ OrrH15.0.lS. UI :CI 0Sf;t?:0PEN2.8.2," 
r»0: . If rSHin/X] t S>U"i J=2:G0T0B9 



-in ijfi II! . I .1 .U: PR TNI it | ,1 t: l - 1 : GGT089 

ii i'piwi ' ri.R/itonF3CRUs/owiLfino frdpi TOP 

F HR l>(Sr : ^nSUBGG: <> " Y" TMEN4 

4? PRiNr , 'tRU'S/0N)u[RU5-/arnisc or crus/o 

N J T[ RUS/OFF 3APF? : G0SUB63 : tFfl* = "T THE 
N45 

43 I-FA$<>"D" FHEN1 

44 SnSIJB9?:PRINT f CRSR/DOUNJF ILE NAME?"' 
INPUTNt: I FNt = " THEN-s 

45 OPFNI.5.8. 15. UI- :r.L0SEl'i:0PEN2.8.2. ,t 
H: ■ .Nt-i 1 I SHIT t/X) .S.R « 2- G0TO93 

4(3 0PEN1 . 1 JMUiOT093 

47 PRINT rCRPR/D0UM*2)KRI. R^: 1 NPU I A*: J = 

UAL CO* ):GOSUB27: ITrtOBTHENA 
4B n i <0ORi>NHIFNPRINI ' f CRSR./UP*2 1 " : GOTO 

47 

43 FOR.IrjlON-l:|FSK| )^ f SH |FT/» 1 "AN0S*C 
I * I J^t'SHitF f/»n HEN I =N- 1 1 G0T05 1 

50 Sif 1 )»S>n*j ):fitl<3UB65 

51 Nl'x I : S t ("N i - ( SHI T T/kI :GOTOM 

^7 PRINI ■[rRSR/fjouN*2JflLPHABrTIZF 1 " ; : GO 
5UB92:U UOI fO*3: IFU<0O«U>NTHENGOTD8 

53 II HIUSC<.*(U\1 ,1 )- IRUS/OM1 THENU'LH ! 

51 GI)OUBB'J:K=0:l OR! -UFOKK: !FLCFT*tf.Si( 1 ) 
) . 1 .1 = t RUS/ON j " THCMK = 1 : NN = i - 1 : 1 =KK 

55 NEXT I : JFK "I IHEN57 

50 NN n 

S7 t PI 

J-U! IF 1 =NN-UTNFN14 
59 irj=NN-ITHFN62 

6B IFSit .1 3>S*t J* t JTllENIPi-Si( J 3iS4CJ 3=S4 

r.l'L):Si(J*l 3*TP4 
Bl J--J*l:G0T059 

62 1 = 1*1- POKE 36879 . IN Tf RNOCK 3*8+184 ):Q0T 
059 

63 GL" T At: |f' A4- IHEN63 

64 RL 1 URN 

65 PRINI rH0riEl"IOBC373;l:RErURN 

66 PRJNr"rrRSR/DOUN«71tRUS/ON3ARE YOU SU 
RE? Y/N :GOSUB63: RETURN 

67 PRI NT " T CLR/H0f1E3£ RUS/ON 1HARD COPY": GO 
SUB66: Y THEN4 

68 PRINT EM T IRC F1LE?":G0SUBB3: lFAt="Y"l 

HENF =9: fl ?N : GOTO?! 

69 fiOSUBBZJF =UOI toil: tFF<0ORF>NGOTO67 

70 PRINT FNOING R4: INPUT0t:i1=UrtL COt ): EFP1 
<0OR1 >NORfi - <F THEN67 

71 0PLH4.4:Ot- :FORI =IT01NT r (40-LENrT* 3 
3/2 3 

7? n*-nt» !NEXri:ni=A4+ CRUS/0FF3 :pri 
MT»4.nlPt( 11 104 » 1 1 »F tC-MRt I 10 )CHR*(I0 3 

7 \ i i.-4:rnRi -f row: iFLrr i % tstr 1 1 . i )= [Ros 

/OMJ" IHFN76 

74 irSifl K> I SHIFT/* 3 THENPRINT«4 .CHRtr 
150 St( I )CHRtCI0):LL=LL+2 

75 G0T079 

76 Ot= : r0RKK : 7T0LENf S*f I 3 3*6: A*=A*+CHP 
4(555 ):NEXTKK 

77 PRTHI'M. litfOt:PR]Nr«4 .Fi t 

vstri nr-t 

' 78 PRINT«f4 .Ft" " tGS- 04* F tCHRt ( 10 U L 

L=LU4. 

79 IFLO59TMENF0RNI 4 1 T 072: PR IN T«4 .CHRt t 
10 3; : NFxTNL : PR IN Ib^ , "' : l.L =3 

80 NFXTI: CL0SE4 : GOT 04 

BI FORJ -0TON: St t J 1= [ SHIFT/* 1 ' : NEXT J : RET 
URN 

82 PRINT-STORTING Rt : I NPU T04 : RETURN 

83 FORi=NTO0STFP-l= |FS4C| JO "f SHIFT/* J M T 
HENKK = 1 : 1 =0:GOTO85 

84 KK=I 

85 NFXTI: RETURN 

86 FORI=JtlTON: IFS4CI 3= [ SHIFT/^3 THENKK 

= UI -N: GO 1085 

87 KK =1 

89 NfcXtI:RiruRN 

89 f"URI--NTO0SlEP-i:K = l:lFS4t I0O"C SHIFT/ 
«3 THCNI^B 



90 NEXT I :K=K> 1 

91 PRTNT«J.T4>- fSHiFTxXl :PRlNF«J .(OFOR 

1 =0TOK 

92 PR1NT*J ,S4( 1 ): GQSUB65: NEXT: CLOSE J : GOT 

n--. 

93 INPUT nj .N*: I FRIGHT 4 IN* .2 K> ' CSHIFT/X 
J" THFNPRlNTNt" NOT FOUND" : GQSU863: CLO 

.1 : GO TOfl 

31 11 <N4: T4 =1 EF T4t T4 .LFN( F4 )-2 PRINT 'C C 
RSR^iflMNir R'JS/ONIFOUND T4: INPUTnj ,K 

35 1FK >MtHI NPRIMT f CRSRHJOWNDCRUS/UNlWflR 
NTNR: TPPINI ' ILE ORIGINATED FROM UI 
C UITH LARGER MEMORY" : K S N 

36 mRi=0lfjK: |NPUT«J.S4(1 ):GOSUB65: NEXT: 
aO'UMrUOTQI 

PR I Nt T RU^/ON ]l Efc R/flOMF JC1 1 SC FILE LIS 

Urn.!? f rpsR/ftnwN j " ; rosiisc.i; if a*o'*y"'t 

MtNRrnjRN 

98 PRINT rnP/?lGf1f URUS/OMlSCflNNING DISC 
I rpSR/tKJUNl 

39 OPtNl ,R.B. 40" 

lOW GET" I ./it. Hi 

101 gi. r»! .nt.pi 

10? 6f I "1 .A4.B4 

10:? c 0 

101 if 040" THFNC=ASP( A4 3 

IBS IF B40 IllENC^C »ASnfB4 Jx256 

106 Il4=0i» IRUSX1N1 'NID4CSTR»(C3.2J* 'tR 

US /OFF J " 

107 rcful.lH: IFS! O0IHFNCLOSF1: PRINT: RET 
URN 

100 IF IJ*OlHR4(31 )THEN107 

109 f,rr»l,B*:lF B4<>t:HR4(34 HHEN04=D4tB4 

: 110 10 IBM 

I UI UITf*rl.,e*! ir-Bt-CHJR4f323IMCNlia. 
HI F4= • 

I I? L4 ( *.0*:nLI-l .04: I F (i4 O ' IHLN112 

113 iFPiGHr*fn4,n- r shifivx) thenprintd 

1 14 1)4- " ':G01Qltn 

I 15 y--Y-l:FORl =0IOC:C*f I.PKCL )3 = "t SHIFT/ 
x] :NrXTi:F0RI=l.TOY:r , xn )=PxCI + l J:NE 
XTI:L=L-l:RETURN 

116 ULEFTt(S4r J 3.11 = " I HENS* t J 3 = ~[ RUS/ 

DNJ •■RIGH74fStr I 1.1 FNCS4.C J] 3-1 J 
I 17 IvfUFlH 



KQNTRDLSUM FDR DO f OBASE UIC 20 



I 






74 


3 


60 


4 


«a 


a 


153 


0 


218 


7 


704 




198 


9 


84 


10 


15! 


ii 


189 


12 


136 


n 


3/ 


14 


3? 


15 


234 


i« 


115 


I? 


37 


IB 


238 


13 


10] 


70 


47 


21 


242 


22 


188 


23 


41 


24 


131 


25 


252 


25 


192 


27 


122 


28 


14? 


29 


255 


38 


166 


31 


75 


32 


?16 


33 


63 


34 


70 


35 


194 


36 


121 


37 


65 


39 


183 


39 


3 


40 


112 


41 


125 


42 


71 


43 


183 


44 


254 


45 


173 


4B 


31 


47 


32 


48 


133 


19 


102 


50 


225 


51 


176 


52 


243 


53 


99 


54 


150 


55 


203 


56 


228 


57 


43 


58 


185 


53 


38 


B0 


258 


Bl 


B? 


62 


229 


63 


54 


64 


142 


65 


114 


66 


146 


6? 


53 


68 


77 


63 


125 


70 


141 


71 


36 


72 


X 


73 


211 


74 


135 


75 


243 


76 


1EG 


77 


80 


7B 


155 


7S 


136 


80 


208 


81 


111 


82 


171 


83 


46 


84 


145 





1*1 s 


DC 


1 171 

1 el 


O/ 


1 *t3 


on 


I** / 




1 10 

I /3 


Qfl 

3B 


AO, 

to 


3 I 


o 1 n 
£\£ 




.ir- 
*t*Q 


HO 
3 J 




34 


243 


95 


54 


3d 


233 




.11 


aQ 


TP 




□a 


I GO 






*s 


1 Mi 


£S 


103 


37 


104 


208 


105 


8 


106 


125 


107 


154 


108 


' 51 


103 


75 


110 


26 


111 


93 


112 


95 


1 13 


224 


1 14 


179 


115 


82 


1 16 


45 


1 1? 


23B 



TIL VIC-20: 

BAJA 1000 - DEL 1 

501 P0KE32 .2fl:i'OKt56 # 7B:CLR 

510 Ki'Ru=7 lfiflT07168+26* 16- 1 :REftDFi: POKEQ. 

ft: MEXT 

51 S PR3 NT '■ r LLR/M0I1E If CRSR/00UNX33 0 
] Pt C I I OMS " : PR I NT " t CRSR /OOWNX23 F RUS 
/OHJSpftCE BARtRUS/OFF] PlflKES 

YOUR TRUCK JUHP ' 

PRJMI"ILR5R/U0UHX?J C RUSyON]F7[ RUS/ 
OFFJ SWITCHES EXHAUST" : PRINT'-C CRSR/B 
riWMI JUMP 01 rCHES. nflCTir':pRINT"[CR 

SR/tDOWMJ SWITCH EXHAUST TO" 

51.' PRIMI CONFUSE HEflT-SEEK ING" 
BOnBS" : FORT = 1 TO6000: NEXTT 

5IB PR 1 1 IT { CRSR/I )0UM*3 ] LOAD" ; CHR4C34 ); T 
BAHA f1O0ULE":CHR4t3l V ,Bt CRSR^UPx2] - 
j:fOKE631 .13 

513 P0KE637 .8?: PDKE633 .213: P0KE634 . 1 3: PO 

KEiye.i 

5?0 OAF flB5 .85. 85. 85. 85. 85. 85. 85. B5 , 95. 85 

.85.85.R5.85.85 
321 DAT A0. 0.0 .0.0.6.0,0 ,0,0.0 .0,0,0,0,0 
57? DAI A0 .32 .32 . 1 36 . 13fi , 136 .32 ,3? ,85 .95 . 

85 ( 83,fl5,B5,9:).S5 
';\71 1 10T A3? . 1 36 , 1 36 . 1 36 . 37 . 3? .85 .95 .85 . 85 

■«5, 85.85, 85.85, 05 

IlATfin6.136.32.32.R5.85.85.85.B5.85. 

85, 8.5, A5. 85,95 .85 
5?5 MAT A12, 3?. 85. 85. 85, 85. 85. 85. 95, 95. 85 

,flS > 85,B3 i 85 .85 
32B FIAT A0, 0.0. 0.0. 0.0. 7. 4. 15.15.15.14.30 

.0.0 

57? HATM0. 0.0. 0.0. 0.0. 254. 146,255.255.13 
. 5. SI ,121 .252.252 

j"« DAFA0. 7-I0. 136. 132. 130. 191 .205.255.25 

5 . 7 'jft .215.7^5. 254 .754.0.0 
'->?9 L'AI A0.W.0 .0.0.0, 192 .251 .251 ,255. 1 35 .■ 
123.253.253.252.252 

530 DAT .0 .0 .8. 16 . 16 . 16 .90 .81 .84 .92 , 1 
12, 16.24,126 

531 PA 1 00,48 , 1 20 ,204 ,204 ,204 , 1 ?0 ,48 , 0 ,0 , 
0.0,0.0.0.0 

53? nATA254,4,4.1?6, 147,147,255.255, 127, 

62. 16,0,0.0,0.0 
533 PAT A16, 0.0. 0.9, 130, 197.212,156,0,0.0 

.0.0.0.0 

531 0ATA113.1.1.1?6,14?.H7.255,255,1?7, 

6? .16.0.0.0.0.0 
53b UP 1A710. 0.0, 0,0, 1 33. 197,245. 156. 0.0. 

0.0.0.0.0 

536 HAT A0. 170. 160.160. 137. 176.204.242.25 

3.1 19.203.203.123.19.0.0 
53? PATA0.0.1.10.17.33.113 .753.754.255.2 

55 ,755 .755 .754 .25? .60 
538 PAT AO. 0.0. 0.8, 0.0. 64, 234, 255. 251 ,255 

.53,31 .702.17 
533 DAT A0. 0,60. 135. 0.0. 60. 135. 0.0. 68.135 

.0.0.60.195 
510 DAI A1 .27 .30.31 .63.63.63.63.31 .3! ,30 . 

30 , 1 1 , 1 1 , 1 1 . 4 
541 DAT AfiH .81 . 40 . 1 6 , 56 . 56 .56 .56 . 1 6 .0 . 0 . 0 

.0.0.0 .8 



J 1 ** lit* \ MDJ |DJ , w B o . ,<IM,/W.W.W,<*»,*:W. . 

20.20.70.20 
b13 DA ITU .8. IB. 20. 20. 20 ,16.1 .1 .16.20.28, 
20.16.0.1 

514 PPTA65.0.4 .28 .21 . 2 1 .21 ,21 .21 ,21 .21 .2 

1.20.1.8.65 
545 DPTfU ,8.16.20,20.28.20,20,20.28.20 .2 

0.20. 16.0.1 



KONTROl SUn FOR 86J6 1080 DEL 1 



501 


68 


510 


31 


515 


1 86 


Sl« 


12 


512 


140 


SIB 


53 


51D 


288 


528 


231 


521 


23 


522 


12 


523 


66 


524 


43 


525 


215 


526 


44 


527 


154 


52fl 


120 


529 


58 


538 


225 


531 


135 


532 


124 


533 


242 


531 


121 


535 


39 


536 


58 


337 


121 


538 


I 1 


539 


l?l 


348 


li 


511 


31 


512 


129 


543 


70 


514 


145 


545 


123 




BAJA 1000 - DEL 2 

I GDTO500 

85 POKEU-72 . 1 9: PUKEU*K-22 .10: POKEU . 2t : PO 
KF.U+K .0: U«V*22: POKESN .200: C = 1 

86 IFU=29017HEMPRINTF*; "I CR5R/UP3AA88 " : G 

nmim 

82 RETURN 

110 Ffl|?Q:lTrj4:PDKE2924.21*a 
115 F0RU--1T023W 

120 F0KE64fi.9:PK*lNTrH:|1ID4tBl(Q).U.22 3 

122 Pr)KE38622.UC:POKE38624,U!C 

125 IFCn<26THfc"NPRlNTDi : "C CRSRAIP 3 " ; MIDit 

CA* ,Cn,23i:Gt!TO130 
t?7 HPEtKC2328)=0THENC;A = i 
1 30 PR I N P C HOME J [ RED] " SPC C X« 22 ) " ANOfl " : PO 

KE5N.280 

160 I F DTHENPR I N TF i ; "[ CRSRvtlPK BLUJFGH1 ": 
PRINT -[BLKJflAKAK- : 140=9:0=0- I :B=l:GOT 
0180 

165 IFBTHENPRINTF*: "C CRSRAJPlfi-fWT :UC=8: 
B~-8 

120 PRINTF*; "( Bl.l.UFGHI ": IFPEEKC 1 97 )=32TH 
ENL)=6 

175 IFPEEKC2984 i=lROTQ300 

122 [| r'LEKC2FIR3)=lRIHENGOSllB250 

180 REflDX: IFX=72THENPRINTCHR*C 133SPCC20 ) 

*6(°iFi : RESTORE: GOTO 180 
182 PRINT"t HOME H RED r'SPCCX+22 3 ALMAe. 
185 IFX=3THENIFPEEK[36828 J=26THF_NGaSUBB5 

:GOT0189 

188 POKESN, 0: IFCTHENPOKESU.26;POKEV-22 ( 1 
9: POKE<J »K - 22 . 1 0 : U =7250 : C=8 

189 IF PEEK 1 137 ) = 63THEN IFO=0THENPOKESU .42 
: C = 1 ; I F X = 3THENR E8U* ! GO TO 1 89 



199 NEXMNFXT 

200 PRINT TCLRxHOHEJ *: P0KE36869 .240: POKE 
35867 .PEEKC 3B8fi7 WND254 

210 PR I NT * [ CftSR/l'tlWNxi 1 [ CRSR^R I GHT *3 1 CON 

750 l-OWI - 1 6T03 1 STEP .3: POKESU . I : POKESN .24 

9 

251 Ff )R I - 1 6T03 1 STEP .3: POKESU . I : POKESN . 24 
9 

260 IF] >21THENPflKE2860.20:POKE7860+K.0 
280 FOR T=lTO40: NEXT 
283 IIF:XT:F0RI = 1 TO2000=NEXT 
295 POKE7860 . 1 : POKESN .0: POKESU . 26: RETURN 
300 POKESU, 3l :POK£SN.200 
305 POKE5U.3I : POKESN. 200 

310 PRlNTFt; "IBUIJflFGHI" 

31 1 PDKE38622.9 

328 FORT =1TO200: NEXT 
338 F0RS*3 1 TO i 6S T EP- 1 

33? Pl«KES0.S:P0KE3fi87a.a:P0KE36827.t35 
310 PRINT' *: "BAftfWlt CRSR^OOWNH CRSR/LEFT 
*3H BLU J flPGRC CRSRAJPK CRSR^LEFT H BLK 

3T" 

360 FURIMTO 100: NEXT 
370 NEXT ' P0KE36877 .0: RUN 

488 HA1 013.19. 19. IS. 17. 17. 15. 16. 15. 15. 14 

.14 .13.13. 1 7 .12.1 1 .10.10 
481 Dm A3. 9. 9. 8.7. 7. 6. 6. 5. 5. 4. 4 .3.3.3.3. 

3.3, 3.3.3.7,1 .0.-1 .-2.77 
580 PnKE3f.C69. 255: POKE36B67. PEEK 1 36867 30 

Rl :POKE3B979.31 
510 K=30720 

S8B r31*= CEOEOCBCOEDCBOEoEDCOEeEDBDDCBCD 
EDflnnADL'BCBCDEDBOEDEoECBCBCCBCDC" 

*i«2 82* = ' XCPECiCBCnEPCBDEOEDCPCPWPftOCPCO 
EUEOEOEPEODCOEnCBCPEDCBOEoEDCOED" 

t'83 01% •-"f;f,flftflr>fli;iJEPEnUEt>EiiC0CeA6WDCBCn 
EiJF.HFllinortrtHl.iiEiJBOEoECECBCBCCBCDC- 

385 Bill >=flt *-^?VtflU + n7t:BtC2 3=6U+62$t 

586 BK3 3=fll»+ft7$ifi3* ^7t:Btt4 3=61 4*M34t 

vtn IJ1. ■ Miunt H i.R'.W,fitliJN*10r :F"S=I EFltfll 

* .10 LRSR/R I GH T J " 
5*7 Cm - ' I CRSR/R fGHT* 1 9 1L PRN IflJflfit CRSR/R 

lgWT«221 " 

505 Pt IK L 646 . 1 Cl : PR 1 N t '* t CLP/HOME J " ; 0 * : S* : S 
%::,%:Ull-8:CA^26:XM9:U=7?29:SU=3687Q 

5SH=368^7 

'S37 PRINT LMOME] 'IFORI M rOBM'RINT ' WAS ' 

!NEX7:.POKESU.2« 
599 PRlNTFt: "[ RE03FGH I ' 

5$>9 nnroiifl 



KONTROLSUH 


FOR BftJfl 


1000 


DEL 2 




1 


30 


85 


174 


86 




87 


142 


1 10 


190 


115 


244 


120 


72 


122 


0 


125 


128 


127 


96 


130 


212 


160 


144 


165 


162 


170 


34 


175 


113 


177 


B8 


180 


56 


182 


225 


185 


61 


188 


15 


189 


120 


190 


!49 


199 


62 


200 


137 


210 


175 


258 


33 


254 


33 


260 


131 


280 


124 


285 


150 


295 


189 


300 


0 


303 


0 


310 


0' 


311 


1 


320 


170 


338 


122 


332 


159 


340 


B5 


360 


169 


320 


130 


488 


39 


481 


IB 


500 


238 


510) 


249 


580 


22 


582 


37 


583 


6 


585 


31 


586 


48 


593 


138 


592 


1 10 


594 


237 


595 


198 


592 


235 


598 


188 


599 


27 



38 



ommodore - MARKED 



Fa mere ud af din COMMODORE 



The Commodore 64 Handbook Peter Lupwn & Fraier Robinson kr 130,— 

The Commodore 64 Program Book Vince Apps kr 108,- 

Sprrte Graphics for the Commodore 64 TM Sally Greenwood Larsen lor 322,- 

Lhing ihe Commodore 64 in the Home Hank Libfach & Bill L ffehrendt kr 214,— 

Micro wars on the Commodore 64 Humphrey Walwyn kr 1 30,- 

Brainieawri for the Commodore 64 Genevieve Ludinsky kr 130.— 

Commodore 64 - Getting thej Moat From It Tim Onosko kr 180,— 

LOGO Programming Anne Mollef kr 152.- 

Muaic and Sound for the Commodore 64 Bill L. Behrendt kr 300,- 

Commodore 64 BASIC Programming & Applications Goldstein & Mosher kr 186,- 

Brain Games for Kids and Adults Using the Commodore 64 J. Stephenson kr 139.— 

The Advanced Commodore 64 Handbook Peter Lupton & Fraier Robinson kr 152,- 

BESQG VOR NYE BOGLAOE MED DET STORE UDVALG AF DA TALITTERA TUR 

svensk-norik bogimport ai «. kongamipjnde 59. t 26« kobenhavn k, teleion 01 14 26 66 



MURDER BY 
IE DOZEN 




DISK: 

COMM0ND0RE 64, 
APPLE Hog IBM PC. 

Et nyi og af>derledes apil. 
Du er seiv deiektiv i 12 (or skellige rnordsagei 
Du besiemmer selv. hvem du vil tage i (orhor, 
hvilke Deviser dei skal eflerforskes usv. 
'MURDER BY THE DOZEN' 
et intens og kraever planleegning. 
god hukommelseog en smart hjerne. 



CBS 



I'.I.KCTKOMCS 
SOITWUtK 



Alt i interface og udstyr 

[til VIC-20 + 64 og avrige CBM varer. 
lOgsa fiarddisk, der betjenes som en 
18250, kan tilsluttes samilige d-e af Com- 
I modore fremslillede computere. 




U.LB. Electronic & Data INC. 

Ulievangsvej 3. 3520 Farum 
02-9551 70 



Head-Up 
Dataservice 

Skafler dig nye progrartirnef Spii lil computere pr 
postordre. Expedition og efieikrav kun kr JH. 
Bla Suicide Express 

149 

og Raid over Moscow 

198 




Sk/tv U os cm dine Brisker, saml rokvwer ovorsigl 
over vore spi og programmer. 

Head-Up Dataservice 

Dempeeng 7, 2950 Vedbask 

@ 02-89 19 74 (ki. 18-19) 



Printerborde 
RABAMI Serie 230 




Trinles uafheengig hejderegulering 
af sa.vel skaarm- som tastaturplade. 
Overflade, brandfast melamm i eg. 
leak eller modehvid. 

Leveres knock-down. 398?+moms. 
Forsendes pr. efterkrav over hete 
landet, 

REKIAMEHUSETAIS 

Kongeve \s Centre! 6 * 2970 Horsholm 
Tif. 02-57 20 00 



COMPUTER 



I DRAGON SHARP 
<$x£^ MICROBEE °^C/f 

Alt i computer og 
perifert udstyr, 
EDB-borde og tilbehar. 

MI BO LA - stedet med 
den gode service. 

CIBOLA 

/MIKRODATk 

i 0sterbrogade 25 • 2100 Kebenhavn 0 

Tlf 0M2 19 66 
Per rigtige daUgnj til eihverv og trittd 




0PLEV EN NY VERDEN MED 



PIXSTIK 




KASSETTE: 
COMMONDOHf 64 



- en fantastisk tyspen som 
tegner direkte p& TV-skmrmen. 



Mad »<m« w On wfy ngne eg tarva 

,r 

tti liUiand U iijui ■ ..>- ii" 
Vea 1 at ■ ■> ■ ■) .r- «»n du 

.1 ' ■ t da ■ V , ,i ■ 

Kamb.naiion: nuiligriBitamo n uaKW 
Uga 0#i «' dt" lm"\m iW" txiiammar 

PlXSTIR lavara Tad \ ag' ai .■ ■ ; i m .1 - 1 
PAINTHOXp/.kMaalta _ 
VerBMnae udulBHire- ■ 




Ehnn tro9i*i?unar. MELQOr du umpcnrifr timt ogrt* rretoOtr' 
VatMandauduMgwa «< !W. 
TIC TAC TOW/FLAK at dob Mi t program, "vo* du M»aa> 'k't'M og botle 
EUer 1 Flek mti Ou UBmpo' mot! f)cii!ltgo 'f» orj Inpaiwicn m dm elireikher 
VaiManda udutgacni kr a*V 

F3s f computer-, radio/ TV-, fotoforretnwger og boghand/ere. 

ELECTRONICS SOFTWARE 



TIL VIC-20: CAVES - DEL 1 



10 CKJNT"CCL»/HtinEJ :POKE36879.104:POKE5 

2.2B: P0KE56,28:CLR 
70 f-GR si *?*^rc#873: POKE I .PEEKC I *?5600 3: N 

EXT 

25 Ff)RT*7179TO7l09:PEP.DJ:POKE] ,J:NEXTJ 
30 I UP I ^7132Tfl755 1 ! Rfc fiDJ ! POKE I . J : NEXT I 

10 FOR J =?$»321 0?S73: REPIJJ : PuKEl , i : NEXT! 

50 FORJ =741 RT 07423: RF.ftOJ : POKE I . J : NEXT I 
1008 00^8,72.139.72,152,72,162. 1 .160,0. 

169.0.30.701 .39.208.46,138 
1010 DPTA72 .56.233. 23. 170.183,0,30,201 ,3 

2 .210.13. 169.58.157.0.30 
1070 I 6 169. 2. 157.0. 150. 76. 64 .28.163.39 

. 1 57 .0 .30 . 1 69 . 1 0 . 1 57 .0 . 1 5G . 1 04 
1 030 DflTft 1 70 . 169 . 32 . 15? .0 .30 .76 , 150 .28 .2 

01 ,33.200.22,32.137.3.165.38 
10-10 I.IBTA701 .157.176.63.169.39.157,0.30. 

169,10.137.0.150.^6,158.28,201 ,40 
1050 O^TA208. 8.1^9.37. 157.0.30.76.150.78 

.701 .37,700.25.183.0 .150.41 .15.201 , 

10 

10G0 Urt 1O20M. 0.1 69. 9. 157 .0.150,76. 150. 2B 
,16a. 10. 157. 0.150 .76.150.29. 201 .56, 
200.3 

1070 IWA169.77. 157 ,0.30, 3 99. 0.30. 77. 1R9 

.B.150.41 .15.202.157 .0.150 
1080 IJOW01. 157, 0.30, 232. 232. 200. 192. 21 

.208.61 .737.221.247.114.59 
1090 IIfilfl3 6?.0,l 89.B. 30.781 .36,208.35,37 

. 137.3.1.65,98,201 ,160 
1100 Uf-itfU76,26, 138 .71 . 1 05 . 22 . 169 . 1 85 . 0 , 

X$8\ .^1 ,740.14. 169,40 
1110 1 in I fU53 . 0 ,30 . 1 69 . 7 . 153.8 . 160 . 1 52 .76 

, 1 98 , ZQ , 732 , 72 1 , 720 .111- 709 

11 70 On Ift 101. 1 63, I 01 . 170.18-1 .10.96,76 .71 

,20,76.13.28 
700W I »f 1 1 f&SS . 255 ,255 . 7*iS .755 . 255 .755 .255 

,n0 .fifi . 1 33 453 .t»6 .m ,m ,153 

70 1 il UfiTnM ,8 . 7M , 78 , 7« . 7" . f i7 .67 . 255 .165.9 

0.30.71,24,71.24 
707O | i|9Tfi755 .735 .735 .735 .735 .73b .735 ,755 

M, 61 .64. '.if?. 171. 754.! 27.0 
7030 I JmTA 1 7. 1 7. 1 7. 1 7.63.8 .8.8.71 .24 .21 .7 

1 ,74,71,71.71 
7010 HflTP.21 .24 .71 .71 ,36,90. 18S .755 .255 .7 

5-1 . 252 . 252 , 240 .24U . 1 97 . 1 28 
70^0 IVnfl755.177.3l ,63 ,63 . 15 ,7 , 1 ,1,3,15, 

31 .3! .63, 177.255 
2060 |.ifnflJ2R.?71 .774.718.218.757.748.255 

.06,66.66.36.96.74 .24 .0 
?».'« umflB, 0.0.18,191 .18.0.0.73, 107.186. 

7H.255.2B.17l' . 105 
?H" 0 I If » f fl60 . 66 . 61 . 6 8 . 7 , 66 . 60 - 0 . 2B . 34 . 64 , 

64,64,34.79.0 
7090 Uf*1(\7A ,36,66,66,66,36,24 ,0, 124 ,66 ,6 

6. 1 24. 72.6a. 66. 00 
2100 l'Jft'lfll2fl,61 ,61 . 120 .61 ,64 , 126,0 
3000 nATfl01 .61 .61 .64 ,61 .04 ,175 .0 
'.000 Pfr'JHT "l CRSR/POUN* 1 3 JC 61. K J NOUJ |.0P 

wim I'intN program" 

;?010 PRINT TCflSR/U0UN*3] LOAD ' I LHR* C31 )l 

xaurs nooui E";r.HR4C3i ); " ,3tCRSR/iJP 

'j0?0 POKE631 .13:POKE632,82:POKES33.213:P 
0KE634.t3:P0KE198.l 




KflN TRtlLSUM FOR CAUES DEL 1 



10 


137 


20 


211 


25 


\e? 


30 


96 


40 


111 


50 


98 


1000 


123 


1010 


Ifi 


1020 


70 


1 030 


221 


1 040 


211 


1050 


1 10 


1060 


50 


1070 


1 08 


1080 


106 


1090 


120 


1 100 


774 


1110 


I 69 


1 170 


715 


2000 


2H7 


2010 


I6l 


2078 


90 


2030 


778 


2010 


133 


20130 


130 


2060 


3 


2070 


186 


2080 


253 


2090 


210 


2100 


84 


300« 


752 


5000 


249 


50I0 


213 


L-020 


195 











CAVES - DEL 2 

1 0 1.0=7690: £#=30729: L = 0: H=3: N=4 

15 FflR 1 -900TO915: RE AO J : P0KE1 .J:NEXTI 

20 P0KE36S69,755:P0KE251 ,0:POKE252 .0: PClK 

£75 3 .0 : P0KE36B7& .96 : GOTO5000 
j0 IFP r <>1 50TMENGOSU83000: G0T055 
52 FORW701TO7321STEP22:POKEi .33: POKE I • 

CO , S: NEXT : P0KE7933 . 32: FORJ b 1 TO50: NEXT 

54 L«t-» 1 :P=0:PR|Nr f HOME 3t CRSRxOOUNxl 1 Jt 
CftilR^RlGHTj:iaKl4HT]";L:H=M- U IFM<lTHE 
NH=4 

55 P0l<£37l54.l27:ll--(PEeKC37137>ANa28 3OR( 
PEEKC37I52 Jf>HOl?8 3 

60 F -I PEEK C 37 1 37 JflNI'332 3/32 : P=P+ I 

70 IFOM56THEN150 

88 iFU=281HENXl^Xl*l:Yl--V 

90 IFfi = l52THENYl=Yl-l:Xl=X 

100 IFU=l49THENYl=vi + l:xi=x 

110 IFO = l10lHF.N*t=Xt-l:Yl=Y 

170 IFD=2irHENXl=XI+l:Yl=Yl-l 

130 lFI3=20THENXI=X|fl;Yl=Ylt! 

110 IFX1 <0PPX1 >?1 HIENXl =X 

.150 f'UKtLOtX-^Y*22.32:i'UKEB.32;SYS71/ , 9:P0 

KE36B76.0: JFPEEKtLO+X 1 *Y1>22 J032THE 

N750 

16P X=X1 : Y=VT:pfJKEL0»X*Y*?2.38:P0KEL0+X+ 
170 1FFO0ANU8-0THEN740 

1R0 IFF=0flNDB-0TMENB-LO-»y*-[Y4l 1*22:5=735 

: P0KE36876 ,5: GOTO200 
1UU W=Bh22 

200 II- PEEKCH 1^39THENSt:=SC>40 

710 UPEEKCB )032ANDPEEK(flX'42THFNSCsSC+ 

1»:S=0:PDKE36876.S 
715 I FFEEK t B ) = 1 1 THENPQKEB - 1 1 0 . 5B: POKEFJ- 1 

18+L0.2 

770 IFPEEKCB 3032TI IENPOKEB .58: B -0: S=0: PO 

KE36876.B: GUT 0240 
730! PfJKEB ,17-' Pf )KFB+CO .2:5 =S- I0: PQKE36976 

710 PRINT"! HfiriE JC RED3C CRSR/DOWN*20 J " ; T 68 

750 PfJKEI 0*X <Y»??.5f?:P0KEUHCU + »Y*77.7 
260 f IhP-l:' "ORJ M5TQLSTEP-1: PU 

KE36879 ,H6fr J : P0KE36877 .200 
265 P0KE36873 # 8+I*J:NEXTJ .[ 

770 N»N 1 : L T L- 1 = IFN=-2THENPR IN7*'t CLR/HOM 
F3CWHT1I' lMni 5U)RE"S(.:POKE3fiB69.?40; 
ENU 

?W nuio'jHwu 

3000 L -I. , l: U L>HTHLNC=0:fl = INTCRNOU3*4 3+ 

34:^0103070 
3010 ft=-t 

3070 !FUrl2f»NOU=3THENU=l3:GOTO3080 
3030 lFU = 13mJU=eTHENW=42:GOTO3080 
3040 I FRNOf I )<.7flNnu=4 7THENU=U+l!GOTO308 

0 
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3R50 IFRNPC1 K.7m4DU = 43THENU*U-l:GOTO300 
0 

3060 ir-W=127HtNW=43:'3OTO3OT0 
3B7R Ule4? 

3PR0 t URI :07O18U=22*I*7?0l; lFKUQRI>U+7 

THewpOKEJ ,33:pOKEJ*CO,5 
3PI30 IFI =U1HENPGKEJ .W: POKEJ+CQ ,5 
3100 IFI =Ut7T"HENPQKEJ .U+2: POKEJ+CO .5 
3110 IF I XJflNDI <U«77HENP0KEJ ,32 
3120 MLXTI 

3130 [Ffl=347HENPOKe(U*6)*22fP701.A:POKEC 

U*5 J»22-770H-CO ,7 
1MB IFP=3S7HENPOICECW6]*22t?701 .fl:P0KEC 

U*6 3x22+7701 +C0. 6 
3150 IFA=367HENP0KEfU+l )*22+7701 .ft:P0KEC 

U+l )*22«-7?0l*-CO.4 
3155 TFA=36THEHPOKEfUi6)*22^7701 .F«+5:P0K 

EtU-6 j*22*770l+CO,4 
3l*0 Irfi--37 tHENl = fU*INTf PM0C1 5*3+1 ) )»22 + 

770 I : PDKEI ,fl: POKE I + C0 .9 
3170 RETURN 

5000 P0KE36B79 , 1 3: PR I NT " I CLR/HOME I * : C =0: 

B=0:X-0: Y*6:X1 =0: Yt =6:P=0 
5M10 | URi =7922707965: POKE! .33: POKE I * CO .5 

: NEXT I 

51*70 I =1 -1:PRINI"[ M0f1EJlUHT]tCRSR/4]0lJN*l 

4J ;TFiR(M): " + ?.?< I 
SCM0 l-ptNTTftBCJ): Cr.R^K,|lCiWN*23;< = >?rCRS 

R,4JiJldN*2KCRSR/LF.FTx4J"5C 
5011 FOR W9B8707988+N: I FN<0THEN5850 
5046 POKE I .38: POKE I *t.'0 . 1 :NEXM 
'jW1>0 " lM!f.RNliCn*:i):W=l7:FORO = lTO?0:GDS 
•UB3000: SvS7179:NEX7G 



5060 FaRI=?9007O78l2STEP-27:POKEI .39:P0K 
El+CO. l:FORJ = 170500: NEXTJ : POKE I .32: 
NEXT I 

5070 P0KE35877 . 250: P0KE36878 . 106: GO7O50 
6000 mrA8 r 72. 138 ,72.157,72,32 ,155,224.1 
04 . 169 . 104 . 1 ?0 . 104 .40 . 96 



K0N7R0LSUf1 FOR CWES DEL 2 
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Babel til Cwondore M mmt. 



ITLEPEIS EUN KH. 



Arets spil 

GHOSTBUSTERS 

FOR YOUR COMMODORE 64 

I ■ • 

Arsts epil til din 

gralik, 1yd og action. 
Pit ntnfceue 
kun kr- ZSSf 




OITOHD WSCAL M 
Progranmr I PASCAL 
l<A din tjuomudoie '■■<' 
Diskette- version fcr. 995,- 




Akade*nt6k BoghandeH 

■ VB-lergaOe 5BA-B000 Aihu»C 
I Tit (Ml 13 » 55 



41 



GH#5TBUSURS 




Et noglekort 

Hvorfor have besvaeret med at huske, 
hvad der kodel ind i de otte Raster pa 
ViC 20, CBM 64ogC16? 

Dene lille program kan bruges pa 
enafdengevntemasktner.ogsammen 
med en plotter 1520, vll det lave et 
KEY-kort,der udskriver Seller 16keys. 
alt efter anske. C 1 6 har kun Drug for 
otte, mens man med Simon Basic 
l.eks. kan bruge F-tasterne med op til 
16 torskellige forprogrammeringer. 

Programmet er »lige ud ad landeve- 
jen« og kan sagtens udbygges. hvis 
man vil have nogle flere opiysninger 
puttet ind. Wen det kan ogsa tint bru- 
ges, som det er. (Se illustrationen). 



ENDNU 
ET 

FINT 
PROGRAM 

ER 
UIST 

I 

RUN 



NU 

ER 

DET 

NED 

AT 

BRUGE 

PROGRAMMET 



TIL C16, VIC-20 OG C64: 

I0 PRINT "C CLR/HONEJC CRSR/DQWN3KEYK0RT UD 
SKRIFT: ■■ 

20 PR I NT "C CRSR/130UIN 3T I TLEN Pflfl KORTET ER 
INPUTKE4 

30 PRINTS CRSR/00UN30TTE ELLER 16 KEY' S" 
:: INPUtTL 

40 PR INT "I CRSR/DDUN K CRSRx'RIGH TX2 3HUAD 0 
N5KF.R DU KEY Fl 5KAL INDEHOLDE": INPUT 

Ki* 

50 PRlNTTCRSR^RlGHTi23HUflO 6NSKER DU KE 

Y F2 SKAL INOEHOLOE : INPUTK2* 

3 PRINTTCRSR/RIGHTxZJHUAO 8NSKER DU KE 

Y F3 SKfiL INOEHOLDE" : INPUTK3* 

20 PRINT TCRSR/RIGHTx2]HUflQ 0NSKER DU KE 

Y F4 SKflL INDEHOLOE": INPUTK4* 

80 PRINT ■•CCRSR/RIGMTX2 3HUAD 0NSKER OU KE 

Y F5 SKflL INDEHOLOE : INPUTK51 

90 PRINT "tCRSR/f?IGH7x2JHUAO 0NSKER OU KE 

Y F6 SKflL [NDEHOLDE : INPUTK6* 

100 PR INT 't CRSR/-RIGH!'x2 JHUAO 0NSKER DU K 
EY F? SKfll INOEHOLOE" ': INPUTK7* 

110 PRINT [CRSR/RIGHT*2JHUftO 0NSKER DU K 
EY F8 SKflL INOEHOLOE": INPUTK81 

120 IFFL =8THEN2l 8 

130 PRINT ■CCRSR/RIGHTx2]HUflD 0NSKER DU K 

EY F9 SKAL 1 N0EH0LOE"' : INPUTE1 4 
140 PRINT "CCRSR/RIGHTI23HUAD 0NSKER DU K 

EY F10 SKfll INDEHDLDE": INPUT E2t 
150 PRINT'TCRSR/RIGHTK2)HUflD 8NSKER DU K 

EY Fll SKflL INDEHOLDE : INPUTE3* 
160 PR INT' C CRSR/Rl GHTx2)HUflO 8NSKER DU K 

EY F12 SKflL INOEHOLOE : INPUTE4* 
170 PRINT r.CRSR/RIGHTx?3HUAO 8NSKER DU K 

EY F13 SKAL INDEHDLDE" : INPUTE5* 
180 PRIMr"CCRSRxRIGHT*23HUflD 0N5KER DU K 

EY F14 SKflL INOEHOLOE"': INPUTEB* 
190 PRINT' tCRSR/^IGHr*2]HUflO 0NSKER DU K 

EY F15 SKOL INOEHOLOE"' : INPUTE7* 
200 PRINT'T CRSR/RIGHT*23HUAD 0NSKER DU K 

EY F16 SKflL INDEHOLOE": INPUTE0* 
210 OPEN4 .6: OPEH2 .0 .2: PRINT«2 . 1 
220 0PEN3,6,3:PRlNT"3 t 2 
230 OPENl .6.1: PRINT" I , "H" 
240 PRINT*! . il ,20,5:PRINT»1 , " I ' : PR INT "4 

,KE*:PRINT«2.3: PRINT"3.i 
253 PR INT* 1 . 'R \0.-35:PRINT»I 

4. Kit 
260 PR I N T « t , 

4 .K2t 
270 PR INT* 1 , 

4 ,K3* 

2B0 PRINT* 1 , "R" .0.-20: PRIN'"1 . ' I' : PR IN T* 
4,K4i 



R' .0.-20: PRINT"! . 
R" ,0.-35:PRINT»l . 



TSPRINT* 
IMPRINT" 
I " : PRINT* 



290 PRINT"! . R .0 , - 35: PR I NT " 1 . " I " : PRINT" 
4,K5fc 

300 PRINT" 1 , R ,0 ,-20: PRI N T" 1 . ' [ :PRINTo 
4.K6$ 

31 G PRINT" I , "R . 0.-35: PRI NT "1 , '' I":PRINT* 
4.K71 

320 PRINTnl, R ,0 . -20: PRI NT" I , " I " : PRINT" 
4.K84 

330 IFFL=8THENFL=0:6OTO420 
340 PRIHTbI. fi" .270. 3^5: PR I NT" I ."I ":PRIN 
T»4 .El* 

350 PRINTnl , ~R" .270 . -20: PRI NT" 1 I":PRIN 
T*4.E24 

360 PRINTnl , "R" .270 . -35: PRINT" 1 I"':PRIN 
T»4,E3i 

370 PRINT"! . R" . 270 . -20: PR IN T" 1 I":PRIN 
T»4 t £4S 

380 PRINTnl . "R" .270 ,-35:PRINT»l . T':PRIN 
r»4,E5t 

398 PRINTnl , R ,270 .-20:PRINT»1 . " J ':PRIN 
T«4.E6t 

400 PRINTnl . 'R ' .270 .-35: PRINT" 1 . T':PRIN 
1*4 ,E?t 

410 PRINTnl , "R .22B.-20:PRINT"1 .T'lPRIN 

T*4,EBt 
420 PRINT "2. 8 
130 PRINTnl ,"R .100.370 
440 PRINT"!, "0' .250.370 
450 PRINT"! ,"0" .250.-10 
460 PRINTnl .0 .100.-10 
470 PRINTnl ,"D .100.370 

480 PRINTnl . "H ' : CLOSE 1 : CLOSE2: CL0SE3: END 



KONTROLSUfl FOR KEYKORT 
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Calc Result og Commodore 64 
Den bedste hjaelp 
man kan toenke sig. 

Slut med kedelige 
kalkuler med papir 

og blyant: 




Dettc er Mogcns Skovbon, direk- 
tor og indchaver af Skovbon 
Fashion A/S. 

Han er konfektionsfabrikant, og 
anvcndcr Calc Result Advanced til 
at foretage kalkulationer Og bud- 
getlargninger i sin virksomned. 

Calc Result 

er lige noget for mig 

I" J eg kobte min Commodore 64 
sammcn med Calc Result. Jcg ville 
anvcndc Calc Result til at foretage 
produktkalkuler pa den konfekfion 
vi fremstiller. Min Commodore 64 
med Calc Result star pa skrivebor- 
det, let tilgamgelig, nar jeg skal 
tra:ffe en hurtig beslutning. 

Af og til skal jeg hurtigt beslutte 
om om Jet kan hetale sig, at 
Ircmstille en bestemt kollektion. 
Skal fade produktionen ske hos os 
selv, hos underleverandor eller i 
udlandet? Hvilken effekt vil det fa, 
hvis vi anvcndcr et andet stykke 
ktade? Uet par lynhunigt med 
Calc Result. Man indsamer et nyt 
nli foretager.cn hurtig omkalkule- 
ring, og det cr txrdigt. Perfckt! 
Jeg anvender ogsa Calc Result til 
|at foretage cftcrkalkulationcr, s5 



jeg kan kontrollerc om mine bereg- 
ninger stemte, eller om kalkula- 
tionsmodellen skal .vndres. Jag tar 
belt enkelt bedre kontrol med 
produktionsomkostningcrne. Calc 
Result er et uundvarrderligt supple- 
ment til vort storrc dataanla:g. 

Pa meder plejer jcg at medbringc 
udskriftcr af mine kalkuler. Og har 
[eg behov for at anskueliggore 
dettc* er Calc Results sojlediagram 
perfekt. 

Sparer tid 
med Calc Result 

Tidligcrc foretog jeg alle produk- 
tionskalkuler i handen, med papir 
og blyant, kcdeligt og bcsvarrligt. 
Med Calc Result nar jcg maske at 
foretage 10 produktionskalkuler pa 
samme tid, som det lor tog at lave 
en. Jeg kan ganske simpelt udnytte 
min rid megct bedre, takket varre 
Calc Result. 

Tjener penge 
pa Calc Result 

Den effektivitet og tidgevinst jcg 
har opnact ved at anvende Calc 
Result, bar ganske givet resulteret i 



en forogct indtjening til firmaet pa 
10.000-tals kroner. Nu kan vi 
udnytte vore produktionsresurser 
mere effektivt og okonomisk end 
for. 

De kan sikkert nu forsta, hvor- 
for jeg vil anbefale Calc Result og 
Commodore 64; det cr den bedste 
hjarlp man kan man kan tarnke sig, 
ligelydigt hvilken lorm for tal og 
kalkuler man arbejder med." 



skovbon fashion I 

grlmhejvel 1 dk 6220 Drabrand 




KONKURRENCE 

Keb et Handle Software produkt 
og deltag f konkurrencen! 

Dan flest mulige ord af 
bokstaverne I ordene 

COMMODORE og 
HANDIC SOFTWARE 

Preemien er et komplet skiudstyr 
Ira BOSSIQNOL 

Bed din COMMODORE forhandler 
om yderligere Information og 
konkurrenceregier. 



Commodore 

Bjerrevcj 67 
8700 Horsens 
Tel 05-641155 



Kontakt din COMMODORE - forhandler idag! 



Han kan ogsa vise dig andre kvali- 
tetsproduktcr fra Handtc Software. 

Alt, lige fra VIC-Switch flerbru- 
gersystem til undervisningspro- 



grammer, programmeringsvacrktoj, 
kommunikation, videotex, data- 
baser og spil. 



1 software ab ' 



* 3dt 1 J O 



HVEM HJ/ELPER Dl 



HOLSTEBRO BIBLIOTEK 
INFORMATION 
KIRKESTRIEDE 11 
7500 HOLSTEBRO 




MATRIX PRINTER MPS 801 

MPS 801 er lil dig. der vil have en virkelig professionel 
printer. 50 karakterer pr. sek. og 80 karakterer pr. I 
Ideel lil udskrivning al fakturaer checks, breve o. lign. 

Der er f uidl alfanumerisk tegnsaei sarm 
Commodoregrafik, Den kan ogsa skrive med negativ 
skrift og lave ferstorrede karakterer. Desuden kan du 
designs tegn og bomsrker med Comnwdore MPS 801 . 




MATRIX PRINTER MPS 802 

Ideel til tekstbehandling. Fordi dens tegnoplosning er sa 
hoj. Veiegnet til administrative system^. Fordi den 
er beundhngsvcertlig hurtig rned 80 karakterer pr. sek. 
Fordi den ubesvasret laver 20, 40 eller 80 tegn pr. linie. 
Bidirektional printning Naturligvis med den linie- 
afetand du prograrnmerer den til. Printer MPS 802 arbej- 
der med papiriormater op til A4 



Commodore Computer er den storste 
leverandor at hjemmecomputere i 
Danmark-ogrjet torpligter 

Vote pertlere enheder lever luldt og 
hell op til vore computeres standard. 

Med vore printere, plottere. diskette- 
stationer og datasettc udvider du dine 
muligheder savel pa det administrative 
omrade som pa omradet for udvikling al 
egne programmer. 



o 

Commodore 

Fordi fremtiden forl&ngst 
erbegyndt. 



